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