エクセルVBAで一番左の可視シート名を取得

質問

エクセルVBAで一番左側にあるシート名を取得する場合、通常は

Sub test01()
　　MsgBox Sheets(1).Name
End Sub

で簡単にできますが、このSheets(1)が非表示になっている場合でもその名前が取得されるため、見た目での一番左側にあるシート名ではなくなってしまいます。
もちろん、非表示になっているシートを除外して

Sub test02()
　　Dim n As Integer
　　For n = 1 To Sheets.Count
　　　　If Sheets(n).Visible Then
　　　　　　MsgBox Sheets(n).Name
　　　　　　Exit For
　　　　End If
　　Next
End Sub

とすれば取得できるのはわかりますが、こんなまだるっこい方法以外に簡単に一番左の可視シート名を取得する方法はないでしょうか？
（＾∇＾）？
ご教示くださいませ。

回答No.2

cj_mover · ベストアンサー

こんにちは。

今思い付いたばかりで検証もしてませんので、
　使えるかどうか、
　使うかどうか、
の判断はお任せするとして、、、。

MsgBox Application.CommandBars("Workbook tabs").Controls(1).Caption

こんなのもありかも。
　何に使うか、
ちょっと想像できませんが(^^;)

＃１end-u さんのコメントは、この際の必要十分だと思います。
コメントとして付け加えることはありません。
＞end-u さん、
先日はマクロ内の数式についてフォロー頂いて
ありがとうございました。（ちょっと嬉し恥ずかし）
プロットを書くのも気（手）が抜けない、と感じました。
（っか、抜き処が下手だったと反省）
また何かお気づきのことなど（もし）ございましたら
ツッコミ入れてやってくださいませ。よろこんで拝聴しますので。
（あ、これ、特にレス不要です）（規約了解済）

お礼

cj_moverさま、いつもありがとうございます。

> Application.CommandBars("Workbook tabs").Controls(1).Caption

なるほどぉ！
シート名を表示させるコマンドがこのように応用できるのですね。
驚きました。
ありがとうございます。