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