DELETE MACRO'S / MODULES????

Ronald

Check out this link.

Make sure you update the visual basic references as described at the beginning otherwise the code will not work!

http://www.cpearson.com/excel/vbe.htm

Chris

Ronald,

Try this code:-

Sub DeleteAllMacros()
Dim vbComp As VBIDE.VBComponent
Dim wb As Workbook

'This macro will delete all macros in the ACTIVE workbook in Excel.
Set wb = ActiveWorkbook

If wb.Name = ThisWorkbook.Name Then Exit Sub 'Don't want to delete this macro

For Each vbComp In wb.VBProject.VBComponents
Select Case vbComp.Type
Case 1, 2, 3 'Module, class module or form
wb.VBProject.VBComponents.Remove vbComp
Case Else 'ThisWorkbook or some sort of sheet
vbComp.CodeModule.DeleteLines 1, vbComp.CodeModule.CountOfLines
End Select
Next

End Sub

YOU MUST SET A REFERENCE TO THE VBA EXTENSIBILITY LIBRARY! From the VB editor choose Tools, References and tick Visual Basic for Applications Extensibility.

Regards,
Daniel.

Thanks!!!

Both thanks a lot for your help!

Ronald