Как обработать ошибку

Option Compare Text

Private Sub Test()
    For Each vItem In Array("Заголовок 1", "Заголовок 3", "Хрень")
        If ExistStyle(vItem) = True Then
           With ThisDocument.Styles(vItem) 'ActiveDocument.Styles()
                '...
           End With
        Else
           MsgBox "Обломись", , ""
        End If
    Next
End Sub

Private Function ExistStyle(vStyleName) As Boolean
    Dim objStyle As Style
    For Each objStyle In ThisDocument.Styles 'ActiveDocument.Styles
        If objStyle = vStyleName Then
           ExistStyle = True
           Exit Function
        End If
    Next
    ExistStyle = False
End Function

For Each vItem In Array("Заголовок 3", "Заголовок 4", "ТЕЗИС")
    'With ThisDocument.Styles(vItem) 'ActiveDocument.Styles()
    '     '...
    'End With
Selection.HomeKey Unit:=wdStory '2
    Selection.Find.ClearFormatting
    For i = 1 To 1000
[COLOR="Navy"]стопорится на этой строке[/COLOR]    With ThisDocument.Styles(vItem) 'ActiveDocument.Styles()
    With Selection.Find
        .Text = " ^$^$ "
        .Replacement.Text = "": .Forward = True: .Wrap = wdFindStop: .Format = True: .MatchCase = False:
        .MatchWholeWord = False: .MatchWildcards = False: .MatchSoundsLike = False: .MatchAllWordForms = False
    End With
    End With
    Selection.Find.Execute
If Selection.Find.Found = False Then GoTo Entt
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.TypeText Text:=Chr$(160)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next i
Entt:
Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting '1 буква
    For i = 1 To 1000
    With ThisDocument.Styles(vItem) 'ActiveDocument.Styles()
    With Selection.Find
        .Text = " ^$ ": .Replacement.Text = "": .Forward = True: .Wrap = wdFindStop: .Format = True
        .MatchCase = False: .MatchWholeWord = False: .MatchWildcards = False: .MatchSoundsLike = False: .MatchAllWordForms = False
    End With
    End With
    Selection.Find.Execute
If Selection.Find.Found = False Then GoTo Ent
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.TypeText Text:=Chr$(160)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next i
Ent:
Next
End Sub

Sub MySub()
On Error GoTo ErrCase
'основной код
Exit Sub
ErrCase: 'это метка
'код обработки ошибочной ситуации
End Sub