Paul,

Give this a whirl

Function DeleteModule()
Dim vbMod As Object

Set vbMod = ActiveWorkbook.VBProject.VBComponents("ThisWorkboo k")
With vbMod.CodeModule
.DeleteLines 1, .CountOfLines
End With

End Function

--

HTH

RP
(remove nothere from the email address if mailing direct)


"PCLIVE" wrote in message
...
Using a macro, is it possible to remove the VBA code that exist in
ThisWorkbook?

Thanks,
Paul