Excel VisualBasic Script

Sub save()
    Workbooks("MyWorkbook.xls").Close SaveChanges:=False
End Sub