Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Gives indexes of sheets
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