excel2003 删除工作表代码区域的所有代码

msjmsj

一个excel文件中有若干工作表（sheet1、sheet2、sheet3..........），每个工作中都有以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '选择后朗读
Dim rng As Range
     Set rng = ActiveCell.Offset(0, 5) '向右5列
     Application.Speech.Speak rng '   朗读单元格内容
     rng.Interior.Color = 65535 '设定单元格的颜色
End Sub

保存文件时，想用调用模块中的宏命令将工作表中的上述代码自动删除。模块中的宏命令如下：

Sub ttt(）'删除作表代码区或的所有代码
For Each sh In Sheets
  With ThisWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
   .DeleteLines 1,.CountofLines
  End With
  Next sh
End Sub
运行上述宏命令时出现：运行时错误‘1004’：不信任到Visual Basic Project 的程序连接，点调试后，第二句：
With ThisWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule呈黄色
请大神们指教

liulang0808

看看这个是否勾选了吧