File Save As Dialog with VBA

Hi,

I am currently using this code I found here (http://software-solutions-online.com...aveasfilename/) to open a saveas dialog with VBA (trying to get the file to save as macro-free workbook with a click of a button).

Sub Example2()
Dim varResult As Variant
'displays the save file dialog
varResult = Application.GetSaveAsFilename( _
FileFilter:="Excel Files (*.xlsx), *.xlsx")
'checks to make sure the user hasn't canceled the dialog
If varResult <> False Then
Cells(2, 1) = varResult
End If
End Sub


Could someone help with changing the code so that the file would actually save?

Thanks!

Pho6

if you wish to simply automatically save a file as another name then

Please Login or Register  to view this content.

Originally Posted by Olly

try:

Please Login or Register  to view this content.

Thanks Olly! This worked perfectly. Exactly what I needed.

Thanks!