Dates
Const limitDOWN As Date = #1/1/2007#
Const limitUP As Date = #2/2/2007#
For Each c In Worksheets("Instructions").Range("B7:B200").Cells
If c limitDOWN And c < limitUP Then
With c.Font
.Bold = True
.Italic = True
End With
End If
Next c
Hth,
Merjet
|