Adam,
You could run this code on the workbook
Dim vbMod As Object
For Each vbMod In ActiveWorkbook.VBProject.VBComponents
Select Case vbMod.Type
Case 1, 2, 3: 'module, class, userform
ThisWorkbook.VBProject.VBComponents.remove vbMod
Case Else 'ThisWorkbook, sheet modules
With vbMod.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next vbMod
Make sure that you don't leave it in the workbook though
--
HTH
RP
(remove nothere from the email address if mailing direct)