Macro to remove macro that removes macros

[jerry12302]

I have the below VBA code to remove all macros from a workbook, but of course this macro remains.

Is there a way to remove all macros and also remove this macro after it is done, so there are no macros left at all?

Sub remove_macros()

Dim m As Object
Dim mCtr As Integer
Dim oCtr As Variant
Dim vbP As Object
Dim strNames As String
strNames = ThisWorkbook.Name
mCtr = 0

Set vbP = Workbooks("" & strNames).VBProject.VBComponents

For oCtr = 1 To vbP.Count
mCtr = mCtr + 1
If vbP(mCtr).Type = 1 Then
Set m = vbP
m.Remove vbcomponent:=m.Item(m(mCtr).Name)
mCtr = mCtr - 1
End If
Next

End Sub

 

[jerry12302]

It sounds like you prefer the other solution, but just for completeness, to suppress the alert

Private Sub savecopynomacros()

   ThisWorkbook.Save ' save any unsaved changes
   Application.DisplayAlerts = False
   ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", "") & " no macros", FileFormat:=xlOpenXMLWorkbook
   Application.DisplayAlerts = True
   ThisWorkbook.Close
  
End Sub

Thank you, that helps for a lot of my other code as well.