xlExcel9795 Saves Document As An Excel workbook for Excel versions 95 and later
Sub save() ActiveWorkbook.SaveAs Filename:="\\server2\Public\Building Schedule.xls", _ FileFormat:=xlExcel9795