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