Modulo de VBA Excel

[StephenQ]

Ya encontré la forma de hacerlo, por si le sirve alguno...

Primero se carga la referencia "Microsoft Visual Basic for APlication Extensibilty 5.3"
y luego se escribe el siguiente código en el modulo

Sub BorrarTodoElCodigo()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule

Set VBProj = ActiveWorkbook.VBProject

For Each VBComp In VBProj.VBComponents
If VBComp.Type = vbext_ct_Document Then
Set CodeMod = VBComp.CodeModule
With CodeMod
.DeleteLines 1, .CountOfLines
End With
Else
VBProj.VBComponents.Remove VBComp
End If
Next VBComp
End Sub

Despues lo llamamos cuando termine de ejecutar la macro

Sub botton_1

'todo el código a ejecutar
Call BorrarTodoElCodigo
End sub

Y listo