Try to use this method:

Sub tomorrow()
On Error GoTo Nohit
Cells.Find(What:=Date + 1).Activate
On Error GoTo 0
Exit Sub
Nohit:
'Take measures if not found!
MsgBox "tomorrow's date not found"
End Sub

Regards,
Stefi

€žClivey_UK€� ezt Ã*rta:


I have two hopefully easy questions:
1. I want to get a macro to find tomorrow's date in my spreadsheet.
I've tried
Cells.Find(What:=(FormatDateTime(Date + 1, vbShortDate))).Activate
but this returns RTE91. However, after running, it has populated the
Find field with the correct date. Please let me know where I've gone
wrong.

2. I want to select a range of data (which grows over time) that is 1
column but there are always 3 blank rows in it. I tried the following:
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
which is what's recorded when I take the actions. However, the
procedure effectively only runs the first line and then doesn't extend
the selection further. Once corrected, I will loop the same line 4
times.

I'm using Excel 2003.
Many thanks for your help.
Clive (new to VBA)


--
Clivey_UK
------------------------------------------------------------------------
Clivey_UK's Profile: http://www.excelforum.com/member.php...o&userid=32569
View this thread: http://www.excelforum.com/showthread...hreadid=536312