' Contagem sequencial de 1 até N(valor digito)

Sub ContarNumero2()
'Faz contagem de 1 até o valor digitado
' contagem sequencial de 1 até n
' msgbox demonstra sequencia em uma janela
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To num
    MsgBox i
    Next

End Sub