Prompt where to save the file

I thought you knew the rest, did I expect too much?

    Dim NewName
    NewName = Application.GetSaveAsFilename(FileFilter:="Excel file,*.xls*")
    If NewName = "False" Then Exit Sub
    activeworkbook.saveas newname