Toggle Button set to true if cell is equal to text

**ravergirl7216** · 07-29-2010, 01:13 PM

Hello

I'm trying to toggle a toggle button on a worksheet if a cell value data is equal to "Premium". I tried this code below but it didn't work. Is this close or is it not possible?
Thanks in advanced.

'this toggles the CoS button if "Premium" is selected

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "D9" And Target.Value = "Premium" Then
        TglButCoS.Value = True
        Call TglButCoS_Click
        TglButCoS.Value = True
    End If
End Sub

**Leith Ross** · 07-29-2010, 01:34 PM

Hello ravengirl7216,

When you set the Value property, the Click() event is triggered. I assume this ToggleButton is on the worksheet and it is named "TglButCoS". Here is how the code should look...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "D9" And Target.Value = "Premium" Then
        ActiveSheet.OLEObjects("TglButCoS").Object.Value = True
    End If
End Sub

**ravergirl7216** · 07-29-2010, 01:56 PM

I tried this snippet. However, nothing happens when I use the worksheet. Do I need to update the sheet or unprotect it to make it work? Thanks again for the code.