Macro needed to open "File Save As" and change save file type

Hey guys,

I'm trying to create a macro that will just open the File Save As dialog, remove the default save name, and change the Save File Type to PDF.

I want the user to simply be able to name their file.

So far, I can just open the dialog but that's it

Formula:

Application.Dialogs(xlDialogSaveAs).Show



End Sub

(Side note: I know it's probably easier for the user to simply do all this process manually, however, the project I'm working on is going to people who have VERY little to little Excel experience. Asking them to change the file type to PDF would be complicated for them)


Thanks all!