VBA＊セルに値があればシート名に反映

VBA初心者の初心者です。
見よう見真似で作成しています。
以下のVBAに足したいことがあり質問させていただきます。

セルに値があればシート名に反映するように設定しています。
シート1を集計用にしているのですが塗り替えられてしまって困っています。
シート1は除外で…という構文を足したいのですが思いつきません。
助けてください…(>_<)

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = i & Worksheets(i).Cells(1, 1).Value
Next i
End Sub

No.2 回答者： Qchan1962 回答日時： 2023/02/22 15:50

＞シート1は除外で…という構文を足したいのですが思いつきません

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "シート1" Then Worksheets(i).Name = i & Worksheets(i).Cells(1, 1).Value
Next i
End Sub

No.1 回答者： tatsumaru77 回答日時： 2023/02/21 15:24

シート１が一番左側にある前提です。

For i = 1 To Worksheets.Count　を
For i = 2 To Worksheets.Count に変えてください。
これで、左から２番目のシートから処理が行われます。

シート１が一番左側にない場合は、
シート１を一番左側に移動してから、上記のように修正したマクロを
実行してください。