Hi everyone,

I am using the following code to open (Save As) Dialog Box:

Application.GetSaveAsFilename

I am also using the following code to open (Open) Dialog Box:

Application.GetOpenFilename

However, after installing (Save As PDF Add-In) in MS Office 2007, What is the proper VBA code to open (Publish as PDF or XPS) Dialog Box?

Temporarily, I am using the following two codes and they work fine, but I think they are not the correct codes for such cases,

Application.SendKeys ("{F12}{TAB}P{TAB}")

OR
If Application.GetSaveAsFilename(ActiveWorkbook.Path & "\" & ActiveSheet.Name, _
"PDF (*.PDF), *.PDF") = False Then Exit Sub

I appreciate your usual help,

Best Regards,