Locate Today's Date Within Row on Opening Workbook

Originally Posted by snb

Private Sub Workbook_Open()
   sheets(1).Rows(1).Find(Date, , xlFormulas, xlWhole).Select
end sub

But for your purpose I think this will be better:

Private Sub Workbook_Open()
  Application.Goto Sheets(1).Rows(1).Find(Date, , -4123, 1), True
End Sub

Perfect!! Your second piece of code worked a treat, thanks very very much! My headache has now gone