save as - location or default

  • Thread starter Thread starter J.W. Aldridge
  • Start date Start date
J

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
 
Hi J.W.
If I understand your question, replace this > ActiveWorkbook.SaveAs FileName1
with this >Application.GetSaveAsFilename
HTH
John
 
Back
Top