アクティブなシートのインデックスは以下の書式で取得することができます。

ActiveSheet.Index

以下に例を示します。

  Dim index As Integer

index = ActiveSheet.index

MsgBox "アクティブシートのインデックスは " & index