Dialog Box To Confirm Running Macro

i have a macro button designed to wipe all user entered data into a workbook. I want it so you cant accidently press (as you cannot undo the operation). Anyway for making a dialog box appear asking if you are sure to wipe date, with a yes or not option.. no will obviously abort the macro.

if possible, another box to come up asking if you want to save the file first with a different file name (comes up with a save as box).

this is the code so far:


Sub MonthCleaner()
'
' MonthCleaner Macro
' Macro recorded 17/10/2005
'

Application.ScreenUpdating = False

Range("A10:G10").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("H10").Select .........