Thanks Dave;
I added space after .exe to read ....exe " & filename, 1

and also inserted the

if filename = false then
exit sub
end if

Still getting R/T 53

I'm running XL2003 SP3 - Vista Home Premium (64-bit)

"Dave Peterson" wrote:

ps.

After trying to get the filename from the user, you may want:

if filename = false then
exit sub
end if

Just in case they clicked the cancel button.

JMay wrote:

Any apparent errors from the below Macro?

Sub LoadMyPdf()

Dim Filt As String
Dim Title As String
Dim Filename As Variant

'Set up list of File Filters
Filt = "PDF Files (*.pdf),*.pdf,"
Title = "Select a pdf file to open"
Filename = Application.GetOpenFilename _
(Filefilter:=Filt, Title:=Title)
Shell "C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" &
Filename, 1
'Shell Filename
End Sub

--

Dave Peterson