End If $ Else without block If error

Putting an End if there causes the error because
the If "something" then "Do something" has been
resolved in one line of code ie. the same line
where you have the If has also resolved it with
a Then statement in one line, so the VBA compiler
is not looking for a End if statement....to fix this then use it like

If ......Then

statement...

else

statement...

End if

AND NOT If "statement" Then "statement"

So your code should read;

For TL = 6 To 100
If Es1.Cells(TL, 5).Value <> "" Then
ChkDel = MsgBox("WOULD YOU LIKE TO DELETE THE ENTRY FOR " _
& """" & Cells(TL, 5).Offset(0, -3).Value & """" & "?" & vbCr & vbCr & Cells(TL, 5).Value, _
vbYesNoCancel, "DELETE CONFIRMATION")

Select Case ChkDel
Case vbCancel
Exit Sub
Case vbYes
Cells(TL, 5).ClearContents
Case vbNo
End Select
End If'I tried putting End If here, and get the error message
Next TL

Thanks Ivan

That works great, I just moved the "chkdel" line down one. I didn't put an else statement in though, because I don't want anything to happen in an "else" situation except for go to the next loop number. Could that be a problem, or should I put something like Else: Resume Next?

Re: Thanks Ivan

That should be fine, if you don't need an else statement then you don't ned to put one in, it's
optional depending on your criteria.

Ivan