msgbox - hvis ja så...... hvis nej så.........

Hej

Jeg har en makro som gemmer regnearket med dynmisk navn.
Den lægger +1 til filnavnet eks. 2009-12.xls bliver til 2009-13.xls osv.

Jeg vil dog gerne have at brugeren får en msgbox op hvor de kan
vælge:Ja - så fortsætter procedure
Vælge: Nej - så stopper proceduren

Her er min kode til gem som-proceduren

Sub test()

Sti = ThisWorkbook.Path
fil = ThisWorkbook.Name
Filaar = Val(fil) & "-"
Filuge = Format(Mid(fil, 6, 2) + 1, "00")
GemSom = Sti & "/" & Filaar & Filuge
 
Application.DisplayAlerts = False
ThisWorkbook.SaveAs GemSom
Application.DisplayAlerts = False

End Sub