ser_ourico,
Mas não deu certo. Alguém pode me dar uma luz?

Acho que etá se referindo a controles activex na aba e não em formulários, como não colocou qual o tipo de controle e nem a versão do excel, segue uma sugestão :

Lembrando que aqui estamos nos referindo a OptionButon com o nome Padrão "OptionButton1, OptionButton2, OptionButton3....)

Private Sub Workbook_Open()

Dim oleObjctCollection As Collection, oleObjct As Object
Dim l As Long
Set oleObjctCollection = New Collection

'Para cada OptionButton na Aba "Plan1"
For Each oleObjct In Plan1.OLEObjects
    If InStr(oleObjct.Name, "Option") Then oleObjctCollection.Add oleObjct
Next

'Define todos os OptionButton como False
For l = 1 To oleObjctCollection.Count
    'If oleObjctCollection(l).Object.Value Then MsgBox "OptionButton" & l & " True"
    oleObjctCollection(l).Object.Value = False
Next

End Sub

Faça os testes e veja se é isto.

[]s

Mauro, boa tarde!

Antes de ver sua resposta eu acabei conseguindo resolver. Fiz da seguinte forma:

Private Sub Workbook_Open()

Sheets("Compra").Activate

Range("H5, I5, H8, I8, H9, I9, H10, I10, H11, I11, H12, I12, K8, K9, K10, K11, K12").Select
Selection.ClearContents
Range("H5").Select

ActiveSheet.OptionButton1.Value = False
ActiveSheet.OptionButton2.Value = False
ActiveSheet.OptionButton3.Value = False
ActiveSheet.OptionButton4.Value = False
ActiveSheet.OptionButton5.Value = False
ActiveSheet.OptionButton6.Value = False
ActiveSheet.OptionButton7.Value = False
ActiveSheet.OptionButton8.Value = False
ActiveSheet.OptionButton9.Value = False
ActiveSheet.OptionButton10.Value = False

End Sub

Obrigado pela resposta e atenção. Abraços.