Sub SKeys() Dim dReturnValue As Double dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus) AppActivate dReturnValue Application.SendKeys "Copy Data.xlsx c:\", True Application.SendKeys "~", True Application.SendKeys "%FABATCH%S", True End Sub