Excel VisualBasic Script

Sub close()
    ActiveWorkbook.Close SaveChanges:=False
End Sub