Dim sFilename as string

sFilename = Application.GetOpenFilename()
If sFilename = False Then Exit Sub

Sheets("Census Data").Select
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=sFileName, FileFormat:=xlCSV, CreateBackup:=False
.Close
End with