マクロ シートの順番を認識してシートをアクティブに

質問

シート名に反応して、シートをアクティブにするマクロは分かるのですが、
シートの順番を元に、アクティブにするマクロを実行したいです。

例えば、
１枚目のシートに　あああ、２枚目のシートに いいい、３枚目のシートに　ううう
と名前を付けているブックがあるとして、あああ のシートをアクティブにしたいとき、

Sub あああ のシートをアクティブにする()
Sheets("あああ").Activate
End Sub

としたいわけではなく、「１枚目だからアクティブにした」
といったマクロを実行したいと思っています。

回答No.1

dogs_cats · ベストアンサー

ワークシートはインデックス番号が左のシートから順に割り振られます。

worksheets(1).activate
シート名は関係なく一番左のシートがアクティブになります。
（３番目にあったシートを１番目に移動させればそのシートが１に変更されるという事です）

１番めのシート名の取得とかも可能です。
dim sn as string

sn = worksheets(1).Name

お礼

早速の回答ありがとうございました。
簡単なことだったんですね。勉強になりました！