save as - location or default

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
 
J

John

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top