I can open Excel and Word Documents from the following routine but I don't know how to open a pdf file. Any help?
Sub OpenFile()
Dim fn As Variant
ChDir "C:\Program Files\FolderName"
fn = Application.GetOpenFilename("All files,*.*,Excel-files,*.xls,Word Files,*.doc,PDF Files,*.pdf,", _...