I have something similar for one of my workbooks (in a
standard module):

Sub Auto_Open()
Dim a As String
Dim rng As Range

a = Format(Now, "m/d/yyyy")

Set rng = Sheets("Sheet1").Range("A:A")

Set rng1 = rng.Find(What:=a, After:=Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not rng1 Is Nothing Then
rng1.Select
End If

End Sub

--
HTH
Jason
Atlanta, GA

-----Original Message-----
I have a spreadsheet with column A containing all the
days of the year in
mm:dd:yyyy:ddd format. I want the focus to go to the
cell containing today?Ts
date for any day the spreadsheet is opened. I want this
to run automatically
when the spreadsheet opens. Thanks in advance for your
help.
--
Rick
.