Hi,
I'm trying to write some code that upon opening the workbook will change the font colour of a certain range if a certain date has passed. I also want to stop users being able to change the font colour after the code has changed it.
The following
Sub MARKNUTS()
If (TODAY) > 39901 Then
Worksheets("Sheet1").Range("A1:Z500").Font.ColorIndex = 4
End If
End Sub
does nothing. As always I can't remember how to post code tags (sorry) and can't remember the upon opening bit.
thanks for looking
Nick
I'm trying to write some code that upon opening the workbook will change the font colour of a certain range if a certain date has passed. I also want to stop users being able to change the font colour after the code has changed it.
The following
Sub MARKNUTS()
If (TODAY) > 39901 Then
Worksheets("Sheet1").Range("A1:Z500").Font.ColorIndex = 4
End If
End Sub
does nothing. As always I can't remember how to post code tags (sorry) and can't remember the upon opening bit.
thanks for looking
Nick