Window.Index (Word)

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = ActiveWindow.Index