Sorry - one more thing. This requires a Reference to "Microsoft Visual Basic
for Applications Extensibility"

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Rob van Gelder" wrote in message
news:...
Later versions of Excel have Macro Security which prevent this sort of
activity without having been trusted.

Sub test()
Dim vbc As VBComponent

For Each vbc In ActiveWorkbook.VBProject.VBComponents
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
Next
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"jriehl" wrote in message
...
Hi there,

is it possible to delete all of a workbooks code automatically by means
of
a
macro?

Lots of thanks

Jürgen