Allowing the user to specify save location
Tim,
You mean like this ?
Private Sub CommandButton3_Click()
Dim RetVal As Variant
RetVal = Application.GetSaveAsFilename(Range("C2"))
If RetVal < False Then
ThisWorkbook.SaveAs RetVal
End If
End Sub
NickHK
"TimN" ...
Easy question I'm sure.....
How do I write code to save a file as the name in cell C2 but also allow
the
user to define the location (path) of the file?
What I would like is the same as the window that pops up when you select
File Save As in Excel. If I could get the file name to default (from
cell
C2) and then have the user take it from there to save to the location they
want.
How can I get there?
I currently have the code below:
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Range("C2").Value
Application.DisplayAlerts = True
|