アクティブのブックのインデックスを知るプロパティ

アクティブのブックをインデックスを取得する方法が知りたいのですが、
シートの

activesheet.index

のような、アクティブブックのインデックス番号を知ることができるプロパティはないでしょうか？
次のようなマクロを使って取得する方法は思いついたのですが、できればプロパティなど簡潔な文で
取得したいのです。

Public Sub tset()
Dim i, s

For i = 1 To Workbooks.Count
If Workbooks(i).Name = ActiveWorkbook.Name Then s = i
Next

MsgBox s

End Sub

No.1 回答者： akina_line 回答日時： 2012/08/12 14:16

こんにちは。

　下記のコードを試してみてください。

Sub DisplayTabNumber()
Dim strSheetName As String

strSheetName = ActiveSheet.Name
MsgBox "シート見出し番号: " & Sheets(strSheetName).Index
End Sub

では。

この回答への補足

例がシートのインデックスだったので誤解させてしまったかもしれませんが
私が知りたいのは、ブックのインデックスです。シートのインデックスではありません

補足日時：2012/08/15 22:53