ピボットテーブルを作成後、シートを削除するマクロ

いつもお世話になっております。
ピボットテーブルを作成するマクロを作ったのですが、このシートを削除するマクロが分からなく困っています。

ピボットテーブルは毎回作成しては削除するので、シートの名前が2,3,4と、どんどん大きくなっていって、シート名が固定化できないんです。

シート名に関わらず、ピボットテーブルを削除するマクロをご教示願います。

No.1 ベストアンサー 回答者： noname#176215 回答日時： 2008/06/10 11:23

ピボットテーブルを 新規のシートに作成せず 特定のシート状に表示

させれば良いのでは？

そのシートは シート非表示か 「xlSheetVeryHidden」に設定してお
くかしておけば 特に問題ないように思いますが。

この回答へのお礼

Chiquilin様ありがとうございます！
そうですね！既存のシートに張り付ければよかったんですね！
解決しました！
ありがとうございました！

お礼日時：2008/06/10 13:00

No.3 回答者： kigoshi 回答日時： 2008/06/10 12:36

単純ですが、Deleteで削除するのではダメなのでしょうか。

Dim shNme As String
※ピボットテーブル作成
shName = ActiveSheet.Name
※任意の処理
Application.DisplayAlerts = False
Sheets(shName).Delete
Application.DisplayAlerts = True

この回答へのお礼

kigoshi様、早速ありがとうございます！
こういう風なマクロで、任意のシート名でも特定できるんですね！
助かりました。
ありがとうございました。

お礼日時：2008/06/10 13:03

No.2 回答者： keirika 回答日時： 2008/06/10 12:34

シート作成直後にシート名を付けることをお勧めします。

ActiveSheet.Name = "シート名"

この回答へのお礼

keirika様、ありがとうございます！
シート名をつけてしまえば、特定できますね！
助かりました！ありがとうございました！

お礼日時：2008/06/10 13:01