Go to column heading on start where column heading matches Today()

[Peo Sjoblom]

Try something like

Private Sub Workbook_Open()
On Error GoTo DDD
Range("a1:Z1").Find(Date).Select
Exit Sub
DDD: MsgBox "No Today's Date Found"
End Sub

adapt to fit header range and message etc.



--
Regards,

Peo Sjoblom

(No private emails please, for everyone's
benefit keep the discussion in the newsgroup/forum)