一次驱除所有“指向宏”

一次清除所有“指向宏”
请问：能否 一次清除所有表里的“指向宏”
求助代码

[最优解释]

For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
With ThisWorkbook.VBProject.VBComponents(i).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next