Sub WorksheetLoop() Dim nIndex As Integer For nIndex = 1 To ThisWorkbook.Worksheets.Count Debug.Print ThisWorkbook.Worksheets(nIndex).Name Next End Sub