状況

以下のExcelVBAマクロを実行したが、削除できないセルがある。

Sub delete_name_and_style()

    On Error Resume Next

'名前定義を全削除（名前を関数その他に有効活用している場合はここは削除）

    Dim N As Name
    For Each N In ActiveWorkbook.Names
        N.Delete
    Next

'書式（スタイル）定義を全削除

    Dim M()

    J = ActiveWorkbook.Styles.Count
    ReDim M(J)
    For i = 1 To J
        M(i) = ActiveWorkbook.Styles(i).Name
    Next
    For i = 1 To J
        If InStr("Hyperlink,Normal,Followed Hyperlink", _
                    M(i)) = 0 Then
            ActiveWorkbook.Styles(M(i)).Delete
        End If
    Next

End Sub

試したこと

「消せない、スタイル（Excelで削除できないスタイルが発生した場合）」regreh,Qiita,2019-12-04(参照:2020-10-16)