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