Getting error using if then else stmt

[Guest]

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

 

[JW]

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

 

[Guest]

Hi ub.

If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) > _
Month(Mydate) Then .Interior.Color = RGB(255, 0, 0)

If and Then on the same row, end the IF instruction.

For rwindex = 4 To 100
If Month(Cells(rwindex, 12).Value) > Month(Mydate) Then
Cells(rwindex, 12).Interior.Color = RGB(255, 0, 0)
ElseIf Month(Cells(rwindex, 12).Value) = "" Then
Cells(rwindex, 12).Interior.ColorIndex = 6
Else
Cells(rwindex, 12).Interior.ColorIndex = 6
End If
Next

Regards
Eliano