Thank you for all your help. I used Normans suggestion and it did the
trick.

On Apr 8, 9:35 am, "Norman Jones"
wrote:
Hi Stewart,

Better would be:

'=============
Sub Savenew()
Dim NewBook As Workbook
Dim fName As Variant

Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename _
(fileFilter:="Excel Files (*.xls), *.xls")

Loop Until fName < False
NewBook.SaveAs Filename:=fName, _
FileFormat:=xlWorkbookNormal
End Sub
'<<=============

---
Regards,
Norman