Hi Ed,

If Cells(r, 4) = "" Then Cells(r, 2) = 0
End If


Try

If Cells(r, 4) = "" Then Cells(r, 2) = 0 End If

or

If Cells(r, 4) = "" Then
Cells(r, 2) = 0
End If


---
Regards,
Norman



"Ed" wrote in message
...
When I run the following macro:

--------------------------------------------------------------------------

For r = 2 To 50
For c = 4 To 50



If Cells(r, 4) = "" Then Cells(r, 2) = 0
End If

If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3

End If
Next
Next

------------------------------------------------------------------

I get the following message:

------------------------------------------------------------------------

Compile error

End if without block if


OK Help
-----------------------------------------------------

How do I correct the macro?

Would appreciate any help


EJE