R/T error 53 - File Not Found
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
|