save as - location or default
 

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

save as - location or default
 

THANX!

save as - location or default
 

You're welcome
John
"J.W. Aldridge" wrote in message
...
THANX!