xlXMLSpreadsheet: Saves Document As An XML spreadsheet
Sub save() ActiveWorkbook.SaveAs Filename:="\\server2\Public\Building Schedule.xls", _ FileFormat:=xlXMLSpreadsheet End Sub