Excel VisualBasic Script

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