How to open Application in Excel VBA - How to open Notepad in Excel VBA - How to open Notepad and send keys in Excel VBA

 Sub CommandButton1_Click()

    Shell "Notepad.exe", vbNormalFocus

    Dim I As Integer

    SendKeys "one"

    SendKeys "{Enter}"

    SendKeys "two"

End Sub