Boa tarde!!

Tente..........

Sub AleVBA_14251()
Dim Num1 As Long, Num2 As Long, Stg As String, n As Long
Num1 = Application.InputBox(prompt:="Digite o Primeiro Número", Title:="Sec Num", Type:=1)
Num2 = Application.InputBox(prompt:="Digite o Ultimo Número", Title:="Sec Num", Type:=1)

For n = Num1 To Num2
    Stg = Stg & "," & n
Next n
MsgBox "Os números são: " & Mid(Stg, 2)
End Sub

favor clicar na mãozinha!!!!!!!!
Att

Perfeito Alexandre!

Muito obrigado!