Hi

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

Many thanks in advance.

Libby

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

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

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