Error handling within a Do Loop

[Boondoggler]

I'm comparing two list of numbers on two different sheets to see which numbers have been omitted from one of the lists. I'm trying to use a Find statement with error trapping within a Do Loop to capture the missing numbers within a text string. The code works fine for detecting and capturing the first missing number, but when the second error occurs I just get the "Object variable or With block variable not set (Error 91)" error message. Is there something I have to do to "reset" the error handling? I tried err.clear but that doesn't seem to work. My code is below...

Please Login or Register  to view this content.

[Sa DQ]

Option Explicit
Sub ComperingColumnsInSheets()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 
 Set Sh = ThisWorkbook.Worksheets("End Day")     '<=|'
 Set Rng = Sh.Range(Sh.[a6], Sh.[a6].End(xlDown))
 Sheets("Start Day").Select
 For Each Cls In Range([a2], [a2].End(xlDown))     '<=|'
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        Cls.Offset(, 4).Value = "Nothing"
    Else
        Cls.Offset(, 4).Value = "Row: " & sRng.Row
    End If
 Next Cls
End Sub