Saving File Name based on cell value - Excel 2010

[thenum1roc]

I am trying to save an excel file based on some cell values in Excel 2010. I have done it before in 03' and 07' with success; however, for whatever reason the selection prompt comes up, with the file name from the cells, and I press save (NO ERROR RECEIVED)


.........BUT...........I don't see a file in any location where I attempt to save the file.


Please see the code below, Thanks.


Sub cmd_SaveToC_Drive()


Dim strPath As String
Dim strFolderPath As String

strFolderPath = "C:\"
ThisFile = Range("F12").Value & "_" & Range("L12").Value & "_" & Range("F14").Value & ".xls"

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFolderPath & ThisFile)

End Sub

 

[VoG]

Try

Sub cmd_SaveToC_Drive()


Dim strPath As String
Dim strFolderPath As String
Dim fileSaveName As Variant
strFolderPath = "C:\"
ThisFile = Range("F12").Value & "_" & Range("L12").Value & "_" & Range("F14").Value & ".xls"

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFolderPath & ThisFile)
If fileSaveName = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fileSaveName

End Sub

 

[thenum1roc]

Thanks, that worked.

Was it an error on my fault or an excel "glich" or "lesson learned"?

 

[VoG]

Application.GetSaveAsFilename only returns the file name. You then have to SaveAs that name.