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.

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
---------------
Jacob Skaria


"dgold82" wrote:

> 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.

Perfect! Thanks.

"Jacob Skaria" wrote:

> 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
> ---------------
> Jacob Skaria
>
>
> "dgold82" wrote:
>
> > 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.

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



dgold82 wrote:
>
> 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.

--

Dave Peterson