Sub WorksheetLoop2() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Debug.Print ws.Name Next End Sub