Error handling: "Resume without Error"

my code has the following structure:

Dim ErrHandler, stepline As Label

'Error handling
ErrHandler:
MsgBox "TS not available"
Resume stepline:

Do while count<limit

'code 1...

On error Goto ErrHandler:
n=1/x

'code 2...

stepline:count=count+1
Loop

When there is an error (eg if x=0) I get the message "Run time error 20, resume without error" and the resume line is highlighted yellow.

basic objective is to skip over second piece of code within the loop and increase count before continuing if there is an error.

Thanks