Checking each ToggleButton Value to delete chart legend entries

[RawlinsCross]

Hi, I already use this code for ComboBox controls successful using the following code.

Dim i As Long
For i = 6 To 1 Step -1
    If Me.Controls("ComboBox" & i).Value = "No" Then
        ActiveChart.Legend.LegendEntries(i).Delete
    End If
Next i

I'm trying to do the same to ToggleButtons using this code which isn't working. What is the correct syntax here?

Dim i As Long
For i = 6 To 1 Step -1
    If Me.Controls("ToggleButton" & i).Value = False Then
        ActiveChart.Legend.LegendEntries(i).Delete
    End If
Next i

 

[RawlinsCross]

Sorry, I figured it out... I had named each of the ToggleButtons. When I renamed them, "ToggleButton1", "ToggleButton2"...etc... it worked. Looked to delete the post. My apologies.