Public RetVal
Sub Minitab()
Selection.Copy
RetVal = Shell("C:\Program Files\Minitab 15\Mtb.exe", 1)
SendKeys "%S"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "s"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "d"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{TAB 2}"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "a"
Application.Wait (Now + TimeValue("0:00:01"))
End Sub