how to make excel select todays date from a list

[sococr]

I have a duties worksheet with an interupted list of dates in the 1st column
how do get excel to when opening automatically select or go to today`s cell
day

[Ron de Bruin]

Hi sococr

Try this macro for column A

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
Else
MsgBox "Nothing found"
End If
End Sub



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



"sococr" <[email protected]> wrote in message news:[email protected]...
>I have a duties worksheet with an interupted list of dates in the 1st column
> how do get excel to when opening automatically select or go to today`s cell
> day