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