I have a code that when I open the file marks the date in a calendar by a
highlighted cell (coloured). The problem is that when the day after I open
the file again I find that yesterday's date cell is still highlighted,
include today's date cell.
I want that the code only shows today's date cell.
Is there is a way to solve this?

I am using this code:

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

Thanks