Public Sub SendKeyTest()
Dim ReturnValue As Double
ReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
Call AppActivate(ReturnValue)
Application.SendKeys "Copy Data.xls c:\", True
Application.SendKeys "~", True
Application.SendKeys "%FABATCH~", True
End Sub