save as - location or default

[J.W. Aldridge]

After confirming name of file.... Instead of actually saving, need to
bring up the save as prompt so that user can determine file saving
location. Or automatically default save to location the original file
is located in.


Sub SaveFile()
Dim FileName1 As String
Dim vbAns As Long

Sheets("Apples").Select
FileName1 = Range("G3").Value

vbAns = MsgBox("Do you want to save as:" & vbNewLine & vbNewLine &
FileName1, _
vbYesNoCancel + vbInformation, "Save File")

If vbAns = vbYes Then
ActiveWorkbook.SaveAs FileName1
End If
End Sub

 

[John]

Hi J.W.
If I understand your question, replace this > ActiveWorkbook.SaveAs FileName1
with this >Application.GetSaveAsFilename
HTH
John

 

[J.W. Aldridge]

THANX!

 

[John]

You're welcome
John