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

"J.W. Aldridge" wrote in message
...
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