Highlight active cell

M

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.
 
M

MAX

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

Thanks
 
M

MAX

Sorry,

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

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top