Excel ユーザー設定のスタイルを一括削除する

Sub ユーザー設定スタイル一括削除()

  Dim oSty As Style
  Dim arySty As Variant

  For Each oSty In ActiveWorkbook.Styles
    'ビルトインスタイル（削除不可）以外を削除
    If oSty.BuiltIn = False Then
        oSty.Delete
    End If
  Next
End Sub

Sub ユーザー設定スタイル一括削除2()

  Dim oSty As Style
  Dim arySty() As Variant
  Dim i As Long
  Dim flg As Boolean

  '== 残したいスタイルの名前を以下に列挙してください =====
  arySty = Array("スタイルA", "スタイルB", "スタイルC")

  For Each oSty In ActiveWorkbook.Styles
    'ビルトインスタイル（削除不可）以外を削除
    If oSty.BuiltIn = False Then
      flg = True
      For i = 0 To ubount(arySty)
        If oSty.NameLocal = arySty(i) Then
          flg = False
          Exit For
        End If
      Next i
      If flg = True Then oSty.Delete
    End If
  Next
End Sub