Shellexecute

[rmwilson]

Any ideas why this would work on all computers except mine. When selected nothing happens. Excel 2007

[/Private 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 Function_Help()
Call ShellExecute(0, "Open", "FunctionHelp.pdf", vbNullString, _
"C:\Program Files\Slicer4 .XLA", 0)
End Sub
]

In the worksheet:

[/With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Function List"
.OnAction = "Function_Help"
.FaceId = 983
]