Удаление макросов - VB

Формулировка задачи:

Доброе время суток!!! Помогите мне с решение одного вопроса. Вообщем надо, написать процедуру которая бы удаляла макросы в других листах Excel.

Решение задачи: «Удаление макросов»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> DelVB()
<font color="blue">Dim</font> VBR <font color="blue">As</font> Variant, VBC <font color="blue">As</font> Variant
  <font color="blue">With</font> ThisWorkbook.VBProject
    <font color="blue">For</font> <font color="blue">Each</font> VBR <font color="blue">In</font> .References
      <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
      .References.Remove VBR
      <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> <font color="darkblue"><b>0</b></font>
    <font color="blue">Next</font> VBR
  <font color="blue">End</font> <font color="blue">With</font>
  <font color="blue">With</font> ThisWorkbook.VBProject
    <font color="blue">For</font> <font color="blue">Each</font> VBC <font color="blue">In</font> .VBComponents
      <font color="blue">If</font> VBC.<font color="blue">Type</font> = <font color="darkblue"><b>100</b></font> <font color="blue">Then</font>
        <font color="blue">Call</font> VBC.CodeModule.DeleteLines(<font color="darkblue"><b>1</b></font>, VBC.CodeModule.CountOfLines)
      <font color="blue">Else</font>
        .VBComponents.Remove VBC
      <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font> VBC
  <font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        