ExcelのVBAでアクティブシート以外のシートを削除する方法。

残したいシート(アクティブシート)を先頭に移動しておき、先頭シートを残すように最終シートから先頭シートに向かってシートの削除を行う。

上記の例では、シートの削除を行うときに確認メッセージが表示されないように「Application.DisplayAlerts」にFalseを設定し、処理が終わったらTrueに戻している。