Sub DebugPrint()
    Dim wrkBook As Workbook
    Dim shtSheet As Worksheet
    Dim i As Integer
    
    Set wrkBook = ActiveWorkbook
    
    For i = 1 To wrkBook.Sheets.Count
        Debug.Print Worksheets(i).Name
    Next i
End Sub

Sub WatchWindow()
    Dim X As Long
    Dim i As Integer
    Dim j As Integer
    
    For i = 1 To 10
        For j = 1 To 10
            X = X + (i * j)
        Next j
    Next i
    
    MsgBox "°á°ú°ªÀº " & X & "ÀÔ´Ï´Ù."
End Sub