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" wrote in message ...
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