For Loop: Worksheets in Workbook

Sub ForLoop_WorksheetsInWorkbook()
    Dim i as Integer
    For i = 1 To Sheets.Count
        MsgBox Sheets(i).Name
    Next i
End Sub