Save As

[Guest]

Hi

Does anyone know how to bring up the Save As dialog box with the filename of
my choice?

Many thanks in advance.

Libby

 

[Chip Pearson]

Libby,

Try something like the following:

Dim FName As Variant
FName = Application.GetSaveAsFilename("default_name.xls", _
"Workbook Files (*.xls),*.xls")
If FName <> False Then
MsgBox "You choose filename: " & FName
Else
MsgBox "You cancelled"
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Guest]

Put the filename in inverted commas in brackets after the
Application.GetSaveAsFilename command, e.g.

Sub savesheet()
Sheets("Sheet1").Select
Do
fName = Application.GetSaveAsFilename("testname.xls")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Andrea Jones

 

[Guest]

Thanks Andrea )

Put the filename in inverted commas in brackets after the
Application.GetSaveAsFilename command, e.g.

Sub savesheet()
Sheets("Sheet1").Select
Do
fName = Application.GetSaveAsFilename("testname.xls")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Andrea Jones