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.