Excel VBA シートをコピーして、ボタンを削除したい

Question

お世話になっております。

表題の通りです。

以下のようなコードを記述しました。

Sub Sample2()
    'sheetをコピーして新しいブックを作成する
    Sheets(Array("テスト", "テスト2")).Copy
    ActiveWorkbook.SaveAs "C:\Users\ユーザー名\OneDrive\デスクトップ\" & "テスト.xlsx"

　'★新しいブックのテスト2シートにあるボタンオブジェクトを削除したい！！★
    Worksheets("テスト2").Buttons.Delete
    ActiveWorkbook.Close
End Sub

「 Worksheets("テスト2").Buttons.Delete」は動作しており、コピーする元のブックで
標準モジュールを追加し、そこで実行するとテスト2シートにあるボタンオブジェクトが削除されます。

どうすれば新しいブックのボタンを削除できますか？

ご教授のほどよろしくお願いします。

Comments

[xail2222]

提示のコードだけであれば、新しいブックのボタンが削除されますよ？
他のコードがあるか、もしくはデバッグモードで処理を止めて元のブックをアクティブにしたりしていませんか？

Answer 1

ブックを指定したいなら、
ActiveWorkbook.Worksheets("テスト2").Buttons.Delete
もしくは
Workbooks("テスト.xlsx").Worksheets("テスト2").Buttons.Delete
でどうでしょう。

Comments

[Chandler_Bing]

遅くなり申し訳ございません。
上手くいきました。
ありがとうございました。