これですか?
参照設定で「Microsoft Visual Basic For Application Extensibility」にチェックを入れて、下記コードを試してみて下さい。
実行するときも、セキュリティーで「Visual Basic プロジェクトへのアクセスを信頼する」にチェックを入れておく必要があります。
Public Sub DeleteVBACode(w as WorkBook, sht as WorkSheet)
Dim i As Integer
Dim j As Integer
Dim obj
' コード編集用オブジェクトの取得
Set obj = Application.VBE.VBProjects(w.VBProject.Name).VBComponents(sht.CodeName).CodeModule
i = obj.CountOfLines
' VBAコードの削除
For j = 1 To i
obj.ReplaceLine j, ""
Next j
End Sub
お礼
お礼が大変遅くなり申し訳ありません。 このコードをどこに書けばよいのでしょうか?