【ExcelVBA】指定のシート以外を削除する方法

現在のシート以外を全部削除するために以下の記述にしております。
If ws.Name <> .ActiveSheet.Name Then ws.Delete

しかし追加要望で、
「【重要】リスト」というシートも削除したくない、という事になりました。
「ActiveSheet」「【重要】リスト」の2シート以外は削除するようにするには
どうしたら良いでしょう？

No.2 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/03/18 11:46

If ws.Name <> .ActiveSheet.Name And ws.Name <> "【重要】リスト" Then ws.

Delete

この回答へのお礼

ありがとうございます。
うまく行きました！

お礼日時：2022/03/20 17:27

No.4 回答者： mygoonickname 回答日時： 2022/03/18 13:27

こんにちは。

行が増えますが、下記の様な書き方もできますね。
今後、対象シートが増えていく場合は、記載が楽で解り易いかと思います。

Select Case ws.Name
Case .ActiveSheet.Name, "【重要】リスト"
'消したくないシート　→　特に処理なし
Case Else
'上記意外のシート　→　消すシート
ws.Delete
End Select

この回答へのお礼

ありがとうございます。勉強になります。

お礼日時：2022/03/20 17:27

No.3 回答者： めぐみん_ 回答日時： 2022/03/18 12:46

No.1です。

ミスってしまった。。。
ミスじゃないのに！！！

No.1 回答者： めぐみん_ 回答日時： 2022/03/18 11:43

If ws.Name <> .ActiveSheet.Name Or ws.Name <> "【重要】リスト" Then ws.D

elete