End if without block if - What am I doing wrong?

[Stanski21]

I'm either trying to make this too simple or not complex enough... I'm trying to add in a simple qualifier as to whether a macro will run. It heads up the code with nothing in front of it and the macro would run completely fine without it. Here's the code:

Range("K1").Formula = "=countif(E2:E500, 0)"


If Range("K1") = 0 Then MsgBox "No agents to remove", vbOKOnly + vbInformation
Exit Sub
End If

The code continues on to run the filter, sort and remove macro I've written. But I get the error "End If without block IF" highlighting the above.
If I remove the End IF and the countif results >0, then the macro still doesn't run.

What am I doing wrong?

 

[steve the fish]

You need:

If Range("K1") = 0 Then 
MsgBox "No agents to remove", vbOKOnly + vbInformation
Exit Sub
End If

 

[Stanski21]

Thanks! So it was a simple answer... I need to read up more about the importance of using lines to seperate elements of code...

 

[skywriter]

FYI here are two alternative forms no end if required.

If you only wanted to display a message box, no exit sub, then you could use this:

    If Range("K1") = 0 Then MsgBox "No agents to remove", vbOKOnly + vbInformation
End Sub

With the exit sub statement you can use this code:

    If Range("K1") = 0 Then MsgBox "No agents to remove", vbOKOnly + vbInformation: Exit Sub
End Sub