【ExcelVBA】シートをそれぞれブック保存した時のシート名を統一させるには？

下記のソースは、ブック内の全シートをバラバラのブックに分割して保存するマクロです。
保存する時はシート名が保存ブック名つまり「シート名.xlsx」となりますので、重複する事はありません。
しかしブックそれぞれのシート名も元のシート名になってしまいます。
全てのブックのシート名を統一させたいのです。
保存する時のシート名を「sheet1」に固定して保存する方法を教えてください。
----------
sub sample
dim s as worksheet
for each s in worksheets
s.copy
activeworkbook.saveas s.name
activeworkbook.close false
next
end sub

No.1 回答者： ssawatake 回答日時： 2024/04/23 20:27

s.copyの下に1行追加

Sheets(1).Name = "sheet1"