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