Window.Index (Word)

Returns a Long that represents the position of an item in a collection.

Dim lngIndex As Long
lngIndex = ActiveWindow.Index