Sub WorksheetIndex()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
MsgBox ThisWorkbook.Worksheets(i).name & _
" has Index = " & _
ThisWorkbook.Worksheets(i).Index
Next i
End Sub