Custom Button

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

Thanks



I l ll have a try