Probably giving you an arbitrary error. Looks like the real problem
is in you For syntax.
For rwIndex 4 to 100 shoudl be For rwIndex = 4 to 100
ub wrote:
Hi
I am using the follwoing code,
For rwIndex 4 to 100
If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) _
Month(Mydate) Then .Interior.Color = RGB(255, 0, 0)
ElseIf Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) = "" Then
Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2
Else
Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2
End If


System gives me 'Complie Error'
Else without if.


Please advise, what is wrong with my code