Unfortunately Your Code Does Not Works

Here is the working way

Create a custom button

Press Alt F11
select "this project"
insert "new Module’
in that module

Cut and paste the following code
----------------------------------------------------------------

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub RunYourProgram()
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "C:\Documents and Settings\planner\My Documents\0Essentials\GRAFICS for MSP.xls", "", _
"C:\MASTER", SW_SHOWMAXIMIZED)
End Sub
------------------------------------------------------------------------------------------------------------------------

were "C:\MASTER" MASTER is a blank folder in my computer

and "GRAFICS for MSP.xls" is the file to be opened

Rename the module , should not be like module1, etc give any name
now save this module to GLOBAL.mpt

now -assign "RunYourProgram" macro to the button

it works
Code Courtsey ::::::: michael@suodenjoki.dk

Thanks
hemant