Este código abaixo pode ser utilizada para eliminar um módulo que abriga um código. Em outras palavras, ele se apaga depois de executado uma vez.
Sub DeleteThisModule()
Dim vbCom As Object
MsgBox "Olá, estou deletando a mim mesmo. "
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= vbCom.Item("Module1")
End Sub
Reference:
Tags: VBA, Excel, module, delete, code