Worksheet.Index (Excel)

Returns a Long value that represents the index number of the object within the collection of similar objects.

Dim lngIndex As Long
lngIndex = ActiveSheet.Index