You can remove the "End If" statements since you put the "Then"
statement on the same line as the "If". Like this:
For r = 2 To 50
For c = 4 To 50
If Cells(r, 4) = "" Then Cells(r, 2) = 0
If Cells(r, c) 0 And Cells(r, c + 1) = "" Then Cells(r, 2) = c - 3
Next
Next

If you want to use the "end if" it'd look like this:
If Cells(r, 4) = "" Then
Cells(r, 2) = 0
End If

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


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=544285