Error handling in VBA - on error resume next

Question

I have the following code:

ErrNr = 0
For Rw = StRw To LsRw \'ToDo speed up with fromrow torow
    If Len(ThisWorkbook.Sheets(TsSh).Cells(Rw, TsCl)) = 0 Then