Excel VisualBasic Script

Sub save()
    ActiveWorkbook.SaveAs Filename:="\\server2\Public\Building Schedule.xls", _
            FileFormat:=xlHtml
End Sub