Desktop Shortcut to launch Excel & Application

[markkramer]

I have two desktop shortcuts. One launches Excel and opens a workbook where I can enter information; I then close and save the workbook. The second shortcut launches a non-Microsoft application that uses the data from the workbook.

I was wondering: Is it possible to create one desktop shortcut that, first, opens the Excel workbook and then, second, launches the application immediately after the workbook is closed?

Mark

 

[crimson_b1ade]

in your excel file (i'm assuming you are using the same file over and over) put in the following code in your 'ThisWorkbook' module in vba (hold Alt+F11 keys). The below example is just a simple example of opening Adobe Reader when you close the Excel file. Of course you'll need to update the file location to whatever program you want to open (i guess right-click your short-cut and select properties then copy the target location:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim myApp As String
Dim StartmyApp
 
myApp = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
 
StartmyApp = Shell(myApp, 1)

End Sub