Error handling not working in "vba object variable or with block variable not set" in Loop

Hi


I have On Error "GoTo ErrorHandler" in my code

It works fine in first loop and Goes to ErrorHandler on error but in second loop of 'heads' it gives error as follows.

"vba object variable or with block variable not set"

For I = 28 To WS_Count
    With Worksheets(I)
        Sheet_Name = .Name
        Name_Start = Left(Sheet_Name, 1)
        Entries = Application.WorksheetFunction.CountA(.Range("D:E"))
        Filled = Application.WorksheetFunction.CountA(.Range("F:F"))
        If IsNumeric(Name_Start) And Sheets(I).Visible = True And Entries - Filled = 1 Then
            .Activate
            On Error GoTo ErrorHandler
            For heads = 1 To 5
                entry = Sheets("Analyzer").Range("C" & 30 + heads).Value
                TargetSheet = Sheets("Analyzer").Range("B" & 30 + heads).Value
Error Line>>>                EntryRwFirst = .Columns(6).Find(What:=entry, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row
                '(irrelevant code removed)
ErrorHandler:
            Next heads
        End If
        On Error GoTo 0
    End With
Next I

Note: Error is happening because in both of 1st and 2nd loop the value is not found from the sheet. That is Ok but I want the code to go to ErrorHandler: when there is error in 2nd loop, instead of showing the error.

Thanks

Sub NotEnoughInfo()
    Dim EntryRwFirst As Variant 

    For I = 28 To WS_Count
        With Worksheets(I)
            Sheet_Name = .Name
            Name_Start = Left(Sheet_Name, 1)
            Entries = Application.WorksheetFunction.CountA(.Range("D:E"))
            Filled = Application.WorksheetFunction.CountA(.Range("F:F"))
            If IsNumeric(Name_Start) And Sheets(I).Visible = True And Entries - Filled = 1 Then
                .Activate
                For heads = 1 To 5
                    entry = Sheets("Analyzer").Range("C" & 30 + heads).Value
                    TargetSheet = Sheets("Analyzer").Range("B" & 30 + heads).Value
                    Set EntryRwFirst = .Columns(6).Find(What:=entry, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row
                    If Not EntryRwFirst Is Nothing Then      'search successfull, so,,,
                        '(irrelevant code removed)
                    End If
                Next heads
            End If
        End With
    Next I
End Sub

As to why it happens: http://excelmatters.com/2015/03/17/on-error-wtf/