Hi Rudy
try the following:
Sub foo()
With Range("A1:G40").Font
Select Case Date
Case DateSerial(2004, 1, 1) To DateSerial(2004, 1, 31)
.ColorIndex = 3
Case DateSerial(2004, 2, 1) To DateSerial(2004, 2, 29)
.ColorIndex = 4
Case DateSerial(2004, 3, 1) To DateSerial(2004, 3, 31)
.ColorIndex = 5
Case DateSerial(2004, 4, 1) To DateSerial(2004, 4, 30)
.ColorIndex = 6
Case DateSerial(2004, 1, 1) To DateSerial(2004, 3, 31)
.ColorIndex = 3
End Select
End With
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany


Rudy Winter wrote:
This is the Macro I used:

If Date = 1 / 1 / 4 <= 1 / 31 / 4 Then
Range("A1:G40").Select
Selection.Font.ColorIndex = 3
End If
If Date = 2 / 1 / 4 <= 2 / 29 / 4 Then
Range("A1:G40").Select
Selection.Font.ColorIndex = 4
End If
If Date = 3 / 1 / 4 <= 3 / 31 / 4 Then
Range("A1:G40").Select
Selection.Font.ColorIndex = 5
End If
If Date = 4 / 1 / 4 <= 4 / 30 / 4 Then
Range("A1:G40").Select
Selection.Font.ColorIndex = 6
End If
End Sub