ThisWorkbook.SaveAs not working?

Hi all,

I have this piece of code, which does copy the original sheet, and does generate a valid filename (sFileName). However, the save line isn't saving anything?

Any suggestions gratefully recieved..

Sub Copy_to_xlsx_file()
Dim sFileName As String
Sheets("Input & Charts").Copy
sFileName = Application.GetSaveAsFilename(iWO, "Excel Files (*.xlsx), *.xlsx")
If sFileName = "False" Then Exit Sub
ThisWorkbook.SaveAs (sFileName)
ActiveWorkbook.Close
End Sub

Thanks,

Dave

Are you meant to be saving ThisWorkbook or the ActiveWorkbook ?

Good grief.

ActiveWorkbook of course.

Thanks DO.