View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
News[_3_] News[_3_] is offline
external usenet poster
 
Posts: 14
Default 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