"Are You Sure?" Prompt on "Clear All" Button Press

[Disarmonious]

Hello,

I would like Excel to prompt the user with this question, "Are You Sure" when selecting the 'Clear All' button on my form. Here's what my code looks like now:

Macros Name =

ClearYNH​

Sub ClearYNH()
'
' ClearYNH Macro
'
'
Range("BW9:BW20,BV9:BV20,BU9:BU20,BT9:BT20,BS9:BS20,BR9:BR20").Select
Range("BR9").Activate
Selection.ClearContents
Range("BR9").Select


End Sub

 

[Logit]

Sub ClearYNH()
Dim answer As Variant


  answer = MsgBox("Are you sure ?", vbYesNo + vbQuestion, "Really ?")
  
    If answer = vbYes Then
        Range("BW9:BW20,BV9:BV20,BU9:BU20,BT9:BT20,BS9:BS20,BR9:BR20").Select
        Range("BR9").Activate
        Selection.ClearContents
        Range("BR9").Select


    Else
        Exit Sub
    End If


End Sub

 

[shg]

Sub ClearYNH()
  If MsgBox("Are you SURE?", vbYesNo) = vbYes Then Range("BR2:BR9, BS9:BW20").ClearContents
End Sub

 

[Fluff]

Try

Sub ClearYNH()
'
' ClearYNH Macro
'
If MsgBox("Are you sure you want to clear the form?", vbYesNo) = vbNo Then Exit Sub
Range("BW9:BW20,BV9:BV20,BU9:BU20,BT9:BT20,BS9:BS20,BR9:BR20").ClearContents
Range("BR9").Select


End Sub

 

[Disarmonious]

Hello Fluff,

Thank you very much! This worked out like a charm!

 

[Disarmonious]

Hello Logit,

Thank you for your assistance.

 

[Logit]

.
You are welcome. Glad to help.

 

[Fluff]

You're welcome & thanks for the feedback