VBA Saveas

[Miya]

Hi when i use this code, and try to choose a file to saveas, the code still appears to keep the same file name as the current workbook, it does not overide, am i missing something?

fName = Application.GetSaveAsFilename _
(InitialFileName:=Range("rngPath").Value, _
FileFilter:="Microsoft Excel workbook (*.xls), *.xls", _
Title:="Save As")
If fName = False Then Exit Sub

 

[GlennUK]

That's getting the name choice ... I don't see that you are actually doing the save there. Does that happen later in the code ... or were you under the impression that GetSaveAsFilename did the save for you?

 

[Miya]

That's getting the name choice ... I don't see that you are actually doing the save there. Does that happen later in the code ... or were you under the impression that GetSaveAsFilename did the save for you?

I thought this code did it all. What do I need to do then?

 

[GlennUK]

That command gets the choice of name from the user ... it's up to you to save the file, like:

ActiveWorkBook.SaveAs fname

Or you could use this:

Application.Dialogs(xlDialogSaveAs).Show arg1:=Range("rngPath").Value

instead of using GetSaveAsFilename, as that does the saving.

 

[Miya]

That command gets the choice of name from the user ... it's up to you to save the file, like:

ActiveWorkBook.SaveAs fname

Or you could use this:

Application.Dialogs(xlDialogSaveAs).Show arg1:=Range("rngPath").Value

instead of using GetSaveAsFilename, as that does the saving.

Thanks