[Word]Active Document Styles and IfThen Statements

[bmj121]

So when the document contains the Style "Side Head", this code obviously works fine. But if the document doesn't contain it, it seems to ignore the Else If part of the statement and return an error that states:
Run-time error '5941':
The requested member of the collection does not exist.
When I select Debug, it highlights the line "Selection.Find.Style = ActiveDocument.Styles("Side Head")
So how can I write this so that it will actually use the If Then statement?
Thanks.

 Selection.Find.ClearFormatting
 Selection.Find.Style = ActiveDocument.Styles("Side Head")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
        Selection.Find.Execute
    If Selection.Find.Found = True Then
    Selection.HomeKey Unit:=wdLine
    Selection.TypeText Text:="TEST"
    Else
    End If