Add msgbox to confirm reset all

[dgold82]

I have a command button that clears all the option buttons on a worksheet. I
would like to add a message box that would ask the user to confirm they would
like to clear all. They would then click OK or cancel. Here is my current
code:

Sub ResetAll()
Dim OptBtn As OptionButton
With ActiveSheet
.Unprotect Password:="test"
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
.Protect Password:="test"
End With
End Sub

Help would be much appreciated. Thanks.

 

[Jacob Skaria]

Try the below..

Sub ResetAll()
Dim OptBtn As OptionButton
If MsgBox("Reset all Option Buttons ?", vbYesNo + _
vbQuestion + vbDefaultButton2) = vbYes Then

With ActiveSheet
.Unprotect Password:="test"
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
.Protect Password:="test"
End With
End If

End Sub

If this post helps click Yes

 

[dgold82]

Perfect! Thanks.

Try the below..

Sub ResetAll()
Dim OptBtn As OptionButton
If MsgBox("Reset all Option Buttons ?", vbYesNo + _
vbQuestion + vbDefaultButton2) = vbYes Then

With ActiveSheet
.Unprotect Password:="test"
For Each OptBtn In .OptionButtons
OptBtn.Value = False
Next OptBtn
.Protect Password:="test"
End With
End If

End Sub

If this post helps click Yes

 

[Dave Peterson]

If the number of optionbuttons is not too large...

Option Explicit
Sub ResetAll()
Dim resp As Long
resp = MsgBox(Prompt:="Are you sure", Buttons:=vbYesNo)
If resp = vbYes Then
With ActiveSheet
.Unprotect Password:="test"
.OptionButtons.Value = False
.Protect Password:="test"
End With
End If
End Sub