Mant thanks to all who helped


Ed


On Mon, 22 May 2006 08:22:23 -0500, Ed wrote:

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