How to launch Adobe PDF file from Excel

[c.p.morris]

Please can anyone show me how to code a macro in Excel to launch a pdf file. As it will be installed on lots of PC's I do not want to have to specify the path to adobe exe file, just the pdf (which I will know the path to).

I have tried

Task_Manual = ShellExecute(Me.hwnd, vbNullString, ActiveWorkbook.Path & "\CT38 - SHS Joint Software Manual.pdf", vbNullString, "C:\", SW_SHOWNORMAL)

but get 'Invalid use of Me keyword' error message.

I am still learning VB so an example of code would be most helpful.

Many thanks

[alex_read]

You can use the handle of the Excel.application object for this:

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
 
Private Const lngSW_SHOWNORMAL As Long = 1
 
Private Sub CommandButton1_Click()
    ShellExecute Excel.Application.hwnd, vbNullString, "http://www.google.com", vbNullString, "C:\", lngSW_SHOWNORMAL
End Sub

[c.p.morris]

Thanks Alex, it works a treat, very much appreciated.

Chris