I use GetSaveAsFileName as follows:

fName = Application.GetSaveAsFilename _
(sStr, "Excel Files (*.xls),*.xls)")
If fName < ThisWorkbook.Name And fName < "False" Then

I now wish to add a new single sheet workbook and name it with
the workbook name the user chose with fName.

How do I do this, please?

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.716 / Virus Database: 472 - Release Date: 05/07/2004