Ate nao aparecer nada melhor

Tente adaptar esse codigo colando em Esta Pasta de Trabalho

ActiveSheet.Shapes.Range(Array("Option Button 1")).Select
    With Selection
        .Value = xlOff
        .Display3DShading = False
    End With

Segue opção que varre e desmarca, os botoes contido na aba ativa:

Sub DesMarcar_Botoes()
' * se necessario, renomeie seus botoes com numeraçao sequencial
Dim opt As OptionButton
For i = 1 To 4 'Altere aqui a qtd total de botoes
Set opt = ActiveSheet.Shapes("Botão de opção " & i).OLEFormat.Object
opt.Value = False
Next
End Sub

Perfeito Pessoal, muito obrigado!
Deu certo!

Abraços