Stuart,

For Each Wks In Activeworkbook.Worksheets
Wks.Select
Wks.Range("B:B").Find(Format(Now(), "mm/dd/yy"), , xlValues).Select
Next Wks

Change the mm/dd/yy to reflect the formatting that you use for your dates.

HTH,
Bernie
MS Excel MVP


"Stuart WJG" <Stuart wrote in message
...
I have mutiple worksheets with daily information covering 6 months. I have
set up formula that highlights column with "today" realting to current date.
I would like to set up macro on each worksheet that I can run to take me to
"todays" date