Msg Box for Acvtiveworkbook save yes/No

Hi,
I want a VB code when it run, Msg box appear as "Save Changes ?" if I click yes then Activeworkbook Save and if Click No then Activeworkbook Close Without Save any Changes.
Please Help.

Sub Macro1()
Flag = MsgBox("Save Workbook", vbYesNo)
If Flag = 6 Then
    ActiveWorkbook.Save
End If
ActiveWorkbook.Close False
End Sub

Hi,
mehmetcik

above code works fine
thank you