Excel VisualBasic Script

Sub macro_loop4()
  Dim i
  For i = 1 To ThisWorkbook.Worksheets.Count
    Debug.Print ThisWorkbook.Worksheets(i).Name
  Next i
End Sub