Msg Box for Acvtiveworkbook save yes/No

[hkbhansali]

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.