' Уничтожает все программы из файла
Sub DeleteCode()
Dim vbcComponent As Variant
If ThisWorkbook.FileFormat <> xlTemplate Then
For Each vbcComponent In ThisWorkbook.VBProject.VBComponents
On Error GoTo Continue
vbcComponent.CodeModule.DeleteLines 1, vbcComponent.CodeModule.CountOfLines
On Error GoTo 0
Continue:
If vbcComponent.Type = 1 Then

ThisWorkbook.VBProject.VBComponents.Remove vbcComponent
End If
Next vbcComponent
End If
End Sub

это позволяет делать такой шаблон, что при его открытии макросы остаются, а при создании файла на его основе - исчезают.

КСТАТИ!

Как так красивенько код в форум вставлять? :-)))