Snasui Excel Forum

Code: Select all

Private Sub OptionButton1_Click()
    With Me.Shapes("Spinner 3").ControlFormat
        If Me.OLEObjects("OptionButton1").Object.Value = True Then
            .Enabled = False
        Else
            .Enabled = True
        End If
    End With
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C2" Then
        With Me
            .Range("c5:f5").ClearContents
        End With
    End If
End Sub