prezados colegas, o codigo abaixo dah argumento ou chamada de procedimento invalida. mas nao consigo ver o erro. ao que me consta, esta tudo certo aqui. podem me dar uma luz

Sub teclas()
    Dim x As String

     x = Shell("C:Userspaulo.vitorDesktopexcelteste.txt", vbNormalFocus)
     AppActivate "teste.txt", False

     SendKeys "123", True

End Sub