Hi Hi crusty53

You can try this find todays date in column A in "Sheet1"

Sub Find_Todays_Date()
Dim FindString As Date
Dim rng As Range
FindString = Date
With Sheets("Sheet1").Range("A:A")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.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 With
End Sub

You van run the macro in the workbook open event in the thisworkbook module


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



"crusty53" wrote in message ...
Yes it has a column were the date is entered every day.

"Ron de Bruin" wrote:

Hi crusty53

Do you have column where you enter the date each day ?

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



"crusty53" wrote in message ...
i have a diary , i would like it to open at the specific date every time i
openen the file.PLEASE HELP