VBAで特定のシート以外のシート名を変更したい

VBA超ビギナーです。
ネットで調べて、「すべてのシート名を日付に変更する」まではできたのですが、「特定のシート(シート名「シート名変更」)を除外してシート名を変更する」にするにはどこをどう変更すればいいのかわかりません。
以下は現在組んでいるコードです。
どのように変更すればよいでしょうか？

Sub シート名一括で変える()
Dim Ws As Worksheet
Dim D As Date

'最初の日付
D = Range("D3").Value

'全シートをループ
For Each Ws In Worksheets

'シート名を変更する
Ws.Name = Format(D, "m.d(aaa)")

'日数にプラス1をする
D = D + 1

Next Ws

End Sub

No.2 ベストアンサー 回答者： ssawatake 回答日時： 2024/02/14 13:14

←←←追加と書いて有る2行を追加するだけ。

'全シートをループ
For Each Ws In Worksheets

'シート名を変更する

IF Ws.Name <> "シート名変更" Then ←←←追加

Ws.Name = Format(D, "m.d(aaa)")

'日数にプラス1をする
D = D + 1

EndIf ←←←追加

Next Ws

この回答へのお礼

無事解決しました！
詳しく書いてくださってありがとうございます！
とても助かりました！

お礼日時：2024/02/14 18:36

No.1 回答者： Zincer 回答日時： 2024/02/14 13:13

'シート名を変更する

If Ws.Name <> "シート名変更" Then
Ws.Name = Format(D, "m.d(aaa)")
'日数にプラス1をする※この処理も除外したければここに入れる。
D = D + 1
End If
のように「シート名が"シート名変更"でなければ」という条件を付ければいいのですよ。
参考に！
If～End Ifによる条件分岐について
https://officevba.info/ifendif/