I have a calendar in this format (below). I need a code that when I open the
file, automatically marks today's date by a flashing cell.


Date Jan Feb Mar Apr May
_________________________________________________
1
_________________________________________________
2
_________________________________________________
3
_________________________________________________
4
_________________________________________________

Jan is in cell B1, Feb is in cell C1, etc.

Number 1 is in cell A2 and number 2 is in cell A3, etc.

So 1st of Jan is in cell B2.

Any help please?

Thanks in advance.

Hi

Insert this event code in the code sheet for ThisWorkbook. It will activate
the desired cell.

I have seen in previous posts that you have been working with flashing
cells, so I'll leave that part to you.

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

Regards,
Per
"MAX" skrev i meddelelsen
...
I have a calendar in this format (below). I need a code that when I open
the
file, automatically marks today's date by a flashing cell.


Date Jan Feb Mar Apr May
_________________________________________________
1
_________________________________________________
2
_________________________________________________
3
_________________________________________________
4
_________________________________________________

Jan is in cell B1, Feb is in cell C1, etc.

Number 1 is in cell A2 and number 2 is in cell A3, etc.

So 1st of Jan is in cell B2.

Any help please?

Thanks in advance.