How to: Application.Dialogs

[MikeDBMan]

How would I issue the following code line without having the dialog box actually open the file. I just wish to retrieve a file name by allowing the user to select it. Thanks.

RetVal = Application.Dialogs(xlDialogOpen).Show("*.pdf")

 

[Richard Schollar]

Dim strFile As String
 
strFile = Application.GetOpenFilename()

 

[schielrn]

Try using get openfilename:

RetVal = Appllication.GetOpenFilename(FileFilter:="Excel Files (*.xlsx),*.xlsx", Title:="Open a File", MultiSelect:=False)

Change the file filter if you want it to filter only on pdfs?

Hope that helps.