特定のシート以外の削除方法を教えて下さい。

質問

すみません。誰か教えて頂けませんか。
シート名が”東”と”中”があり残りは、”Y-1”,”Y-２”,”Y-３”,……,”Y-n”シートがあります。
そこで、シート名が”東”、”中”、頭がYの名前が付くシート以外を削除したいのですが、
マクロでどのように記述すれば良いか教えて頂けませんでしょうか。
宜しくお願いします。

回答No.1

keithin · ベストアンサー

＞…の名前が付くシート以外を削除したい

その通りにするだけです。

sub macro1()
　dim w as worksheet
　on error resume next
　application.displayalerts = false
　for each w in worksheets
　　if w.name <> "東" and w.name <> "中" and left(w.name, 1) <> "Y" then
　　　w.delete
　　end if
　next
　application.displayalerts = true
end sub

お礼

keithin様

ありがとうございます。
解決する事が出来ました。