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