Excelワークブックに登録されたスタイルを数えるマクロ。

count_workbook_styles.bas

'ワークブックのスタイルをカウント
Sub count_workbook_styles()
    On Error Resume Next

    Dim bltin_count As Long
    Dim not_bltin_count As Long
    Dim s As Style
    Dim bk As Workbook
    Set bk = ActiveWorkbook
    bltin_count = 0
    not_bltin_count = 0

    For Each s In bk.Styles
        If s.BuiltIn Then
            bltin_count = bltin_count + 1
        Else
            not_bltin_count = not_bltin_count + 1
        End If
    Next

    Debug.Print "Builtin= " & bltin_count & ", NotBuiltin= " & not_bltin_count
    
End Sub