VBA シート名取得

Question

VBA にて一番右のシート名を取得するにはどうすればよろしいでしょうか？

Answer 1

自分自身のワークブックなら
Worksheets(Worksheets.Count).Name

特定のワークブック（例えばWorkbook1）に対して、であれば、
Workbook1.Worksheets(Workbook1.Worksheets.Count).Name
とか。

Dim RightestSheetName As String

RightestSheetName = Worksheets(Worksheets.Count).Name

If Left(RightestSheetName, 3) = "北海道" Then
～
End If

みたいな？

Comments

[Yoshikun_0945]

取得した名前を変数に記憶する場合はどの様にすればよろしいでしょうか？

[Yoshikun_0945]

一番右のシート名を取得し、変数に代入させてif処理させたいのですが…

Answer 2

目的のワークブックを thisworkbook と仮定すると以下のとおりです。

thisworkbook.worksheets(1).name

Comments

[tukuroku]

失礼、これは一番左でしたね。

Answer 3

質問内容そのままに「VBA にて一番右のシート名を取得する」でググれば一番最初にヒットするサイトにやり方が書いてありますよ。

現在のブックの先頭（一番左）のシート名であれば、
ActiveWorkbook.Worksheets(1).Name

現在のブックの最終（一番右）のシート名であれば、
ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Name

で取得可能です。