This is probably more accurate (and easier!) than the last one I
posted:

Sheets("Census Data").Select
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close