Save As
 

Hi

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

Many thanks in advance.

Libby

Save As
 

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



"Libby" wrote in message
...
Hi

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

Many thanks in advance.

Libby

Save As
 

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

"Libby" wrote:

Hi

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

Many thanks in advance.

Libby

Save As
 

Thanks Andrea :o)

"Andrea Jones" wrote:

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

"Libby" wrote:

Hi

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

Many thanks in advance.

Libby