Highlight active cell

[MAX]

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.

 

[JLGWhiz]

Stealth code. Neat!

 

[MAX]

Sorry I didn't understand what that means. Will you please Explain more easier?

Thanks

 

[JLGWhiz]

It means you did not post the code. <g>

Sorry I didn't understand what that means. Will you please Explain more
easier?

Thanks

 

[MAX]

Sorry,

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

 

[JLGWhiz]

I assumed you wanted it to be yellow for a highlight. That color will
remain there unless you delete it manually with Format>Cells>Pattern>No
Color> OK

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