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