Oops Line wrap

This is the good one

Sub Find_Todays_Date()
Dim FindString As Date
Dim Rng As Range
FindString = Date
Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Try this

Sub Find_Todays_Date()
Dim FindString As Date
Dim Rng As Range
FindString = Date Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then Application.Goto Rng, True
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl


"awander " wrote in message ...
I have a spreadsheet that is used for scheduling. Column A has
consecutive dates in it. I want to write a mcro that will search this
column for the current date, and then display the worksheet with that
cell in the top left corner. I am pretty new to VBA, and am getting
nowhere with this. DOes anyone have a macro that does this, or
something similar, that I could use or refer to?

thanks,

Andy


---
Message posted from http://www.ExcelForum.com/