After GetSaveAsFileName question

S

Stuart

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.
 
R

Ron de Bruin

Hi Stuart

Try something like this

Sub Test()
Dim fname As Variant
Dim NewWb As Workbook
Set NewWb = Workbooks.Add(xlWBATWorksheet)
fname = Application.GetSaveAsFilename("", _
fileFilter:="Excel Files (*.xls), *.xls")
If fname <> "False" Then
NewWb.SaveAs fname
NewWb.Close False
Set NewWb = Nothing
Else
NewWb.Close False
Set NewWb = Nothing
End If
End Sub
 
Top