Sub Find2Style()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .Text = ""
    .Replacement.Text = ""
    .ClearFormatting
    .Style = ActiveDocument.Styles("Heading 2")
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    If .Execute Then
      aRng.Start = 0
      aRng.Select
    Else
      MsgBox "Style not found"
    End If
  End With
End Sub