Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
save as - location or default
THANX!
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
save as - location or default
You're welcome
John "J.W. Aldridge" wrote in message ... THANX! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Save to a location other than default | Excel Discussion (Misc queries) | |||
Macro - save to current location vs excel default location | Excel Discussion (Misc queries) | |||
Save as with Default location | Excel Programming | |||
default save location on network | Excel Discussion (Misc queries) | |||
Default Save Location | Excel Programming |