学步园

The code below can be used to delete the module which houses the code. In other words, it deletes itself after running once.

You will have to go to Tools>Macro>Security - Trusted Publishers and check Trust access to Visual Basic Editor before running the code. Change "Module1" to suit.

1. Sub DeleteThisModule()
3. Dim vbCom As Object
5.      
7.     MsgBox "Hi, I will delete myself "
9.      
11.     Set vbCom = Application.VBE.ActiveVBProject.VBComponents
13.     
15.     vbCom.Remove VBComponent:= _
17.     vbCom.Item("Module1")
19.      
21. End Sub

 

From: http://www.ozgrid.com/VBA/delete-module.htm