Waiting for a valid input

  • Thread starter Thread starter serge
  • Start date Start date
S

serge

Hi,

I'm using a macro to find the first empty cell in a column. For this
use the code:
Range("a65536").End(xlUp).Offset(1, 0).Activate

Then I put a value in the active cell

And after it the value should disappear in the cell F3. For this I us
the code:
Range("F3").Value = Sheets("blad1").Range("a65536").End(xlUp).Value

Now I want to put this in 1 macro. Between my first code and my las
code, it should wait for a valid input and an enter before it continue
with the last code.
How can I do this
 
ans = Input("Please supply a value")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top