任意でsの値にシート名を入れることは可能でしょうか

質問

Sub test()
Dim s As Worksheet

For Each s In Worksheets

Next

End Sub

このようなシート名を左からループする際に、任意でsの値にシート名を入れることは可能でしょうか？

例えば、
s="シート3"
などです。

回答No.2

imogasi · ベストアンサー

>sの値にシート名を入れることは
の意味が分からない。
For Each s In Worksheets
Msgbix S.Name
next
のように　 S.Name　でシート名が取れます。
シート名を変更するなら
ｓ.name=s.name & ”第２"のように
Sub test01()
For Each s In Worksheets
MsgBox s.Name
s.Name = s.Name & "第２"
Next
End Sub
実行するとSheet1－－＞Sheet1第２のようにシート名が変わるが、ヒントになるでしょうか。

お礼

回答ありがとうございました。

回答No.1

mshr1962

・シート名の取得（セルと配列に格納）
https://www.moug.net/tech/exvba/0040020.html

お礼

回答ありがとうございました。