How to open the SAVE AS dialog box with VBA?

[peter_z]

Hey Guys,
Just wondering if anyone knows how to use VBA to open the save as dialog box?

I would like for the end user to be able to save the file and name the file to what ever they want.

Cheers for the help!
Peter

 

[Jasesair]

I have the below which is working perfectly - it opens up the Save As dialog box, enters a file name, and selects PDF as the file type.. I would like to adjust slightly to include the range of cells to PDF print, rather than the predefined print area. Any ideas? It's surely a simple little adjustment but my attempts have failed despite trying to use ideas from mikerickson as above.

Sub SaveAsPDF()
Application.Dialogs(xlDialogSaveAs).Show Range("A33") & " " & Range("C33"), 57

End Sub

 

[mikerickson]

The range of cells that form a PDF are not part of the SaveAs dialog. Set the ActiveSheet.PageSetup.PrintArea just before calling this and you should be fine.