Excel VBA テクニック集
マクロの削除

マクロの削除方法です。マクロには、シートマクロ・ThisWorkbookマクロ・標準マクロがあるので、それぞれ削除方法を記載します。

使い方は、マクロ操作の基本的な考え方の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

シートマクロ削除（シートのコード名を指定）

    With Excel_App.ActiveWorkbook.VBProject.VBComponents(コード名).CodeModule
        .DeleteLines 1, .CountOfLines
        End With

ThisWorkBook削除

    With Excel_App.ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
        .DeleteLines 1, .CountOfLines
        End With

標準マクロ削除（マクロ名を指定）

    Dim Count_I As Integer
    Dim Macro_Obj As Object
    Dim I As Integer

    Count_I = Excel_App.ActiveWorkbook.VBProject.VBComponents.Count
    For I = Count_I To 1 Step -1
        Set Macro_Obj = Excel_App.ActiveWorkbook.VBProject.VBComponents(I)
        If Macro_Obj.Type = 1 Then
            If Macro_Obj.Name = （マクロ名） Then
                Excel_App.ActiveWorkbook.VBProject.VBComponents.Remove Macro_Obj
                Exit For
                End If
            End If
        Next I

Excel VBA テクニック集 マクロの削除

Excel VBA テクニック集
マクロの削除