Highlight current date cell

[bob85]

Hello, <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I am working on a calendar where I need the current day to be highlighted. I know how to do it with conditional formatting but I would like to use VB for it. I have come up with the following code but it does not work. Any help would be appreciated.<o></o>
<o></o>
Private Sub Workbook_Open() <o></o>
Dim cCurrDate As String
cCurrDate = Format(Date, "mm/dd/yyyy")
If Range("C5:AG31").Value = cCurrDate Then
Font.ColorIndex = 3
Else
Font.ColorIndex = 0
End If<o></o>
End Sub

 

[njimack]

You need to loop through each cell in the range

Private Sub Workbook_Open()
Dim cCurrDate As String
Dim cell As Range
cCurrDate = Format(Date, "mm/dd/yyyy")

For each cell in Range("C5:AG31")
If cell.Value = cCurrDate Then
cell.Font.ColorIndex = 3
Else
cell.Font.ColorIndex = 0
End If
Next cell
End Sub