Option Button Reset

[jmathew]

Is it possible to reset all of the option buttons in an excel sheet? I have the following macro code to reset one option button:

Sub Macro1()
ActiveSheet.Shapes("Option Button 159").Select
With Selection
.Value = xlOff
End With
End Sub

Is there any way to loop through and reset all option buttons? My issue is that there are probably 1000 option buttons on the sheet.

Thank you.

 

[texasalynn]

take a look at this
http://www.mrexcel.com/board2/viewtopic.php?t=200389

 

[jmathew]

Thank you. It worked but I received an error at the end on the following code:

Runtime error 1004


If sh.FormControlType = xlOptionButton Then

 

[jmathew]

I think it works now. I needed the commented code...

Thank you!!!