'(Debug.Print) "Ctrl + G" ===> Mostra Janela imediata

Sub tabuada3()
'Faz a tabuada de um numero multiplicado de 1 ao 10
'Debug.Print Ctrl + G ===> Mostra Janela imediata
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To 10
    Debug.Print num & " X " & i & " = " & num * i
    Next
End Sub