Sorry,

Private Sub Workbook_Open()
c = Month(Date)
r = Day(Date)
Sheets("Sheet1").Range("A1").Offset(r, c).Activate
End Sub

"JLGWhiz" wrote:

It means you did not post the code. <g



"MAX" wrote in message
...
Sorry I didn't understand what that means. Will you please Explain more
easier?

Thanks

"JLGWhiz" wrote:

Stealth code. Neat!

"MAX" wrote:

I have this code (below) given to me by Per Jessen that marks today's
date.
Now I need the date highlighted. Any help please?

Thanks a lot.