Køre en makro med HVIS

Jeg har en makro der leder efter en linie med --**-- i.
Når den har fundet den skal den skjule et par linier.

Det sker bare at der ikke altid er en linie med --**-- og så går den kold.

Hvordan laver jeg en IF-sætning på den, så den ikke går kold.
Jeg har indsat min kodestump nedenfor.



Dim AE As String
  Columns("A:A").Select
  Selection.Find(What:="--**--", After:=ActiveCell, LookIn:= _
                  xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                  xlNext, MatchCase:=False, SearchFormat:=False).Activate = True Then
    AE = ActiveCell.Address
    Rows(ActiveCell.Row - 1).Hidden = True
    Rows(ActiveCell.Row - 0).Hidden = True
    Rows(ActiveCell.Row + 1).Hidden = True
    Range(AE).Select