If you are trying to end the if statement you must use "end if".
When you use end if ends the sub procedure.

" wrote:

Hey,

Can anyone tell me why i cannot do anything after this macro

Sub YCriteria()
Sheets("Macro Criteria").Select
For r = 2 To 100
If Cells(r, 2).Value = "Yes" Then Cells(r, 3) = Cells(r, 1)
If Cells(r, 2).Value = "" Then End
If r = 100 Then End
Next

Continue.Show

End Sub

Every time i add something after the Next it won't work. I can't call
another macro, call a userform, anything, and i really need it to :'(
If you can lend a hand it would be appreciated.

Thanks
Andrew