Modify a list of labels on a worksheet if they are the ones selected

[nemmi69]

I have a number of labels on a worksheet that are to start with the background gray and if the user selects from a list of their names they will change to green. The problem I am having is that I can get the names of the labels but then cannot reference them to change their colour.

I tried :-

<code>Sub test1() Dim oLabel As OLEObject Dim LblCount As Integer  LblCount = 0 For Each oLabel In Worksheets("Sheet2").OLEObjects      Worksheets("Sheet2").Range("R" & LblCount + 1).Value = Right(oLabel.Name, Len(oLabel.Name) - 6)     'oLabel.BackColor = RGB(175, 175, 175)     Worksheets("Sheet2").OLEObject(oLabel).BackColor = RGB(175, 175, 175)     LblCount = LblCount + 1 Next oLabel  End Sub  Sub test2() Dim cCont As Control Dim LblCount As Integer  LblCount = 0 For Each cCont In Controls      If Left(oLabel.Name, 6) = "Label_" Then       Worksheets("Sheet2").Control(cCont).BackColor = RGB(175, 175, 175)     End If Next cCont End Sub

</code>

Then I tried :-

<code>Sub test1() Dim oLabel As OLEObject Dim LblCount As Integer  LblCount = 0 For Each oLabel In Worksheets("Sheet2").OLEObjects      Worksheets("Sheet2").Range("R" & LblCount + 1).Value = Right(oLabel.Name, Len(oLabel.Name) - 6)     Worksheets("Sheet2").OLEObjects(oLabel).Interior.ColorIndex = 15 'gray     'Worksheets("Sheet2").OLEObjects(oLabel).Interior.ColorIndex = 4 'green     LblCount = LblCount + 1 Next oLabel  End Sub</code>

<code>
</code></pre>

 

[nemmi69]

Well this doesn't error but nor does it seem to do anything

 	Code:
 	
<code>Sub test1() Dim oLabel As OLEObject Dim LblCount As Integer  LblCount = 0 For Each oLabel In Worksheets("Sheet2").OLEObjects      Worksheets("Sheet2").Range("R" & LblCount + 1).Value = Right(oLabel.Name, Len(oLabel.Name) - 6)     Worksheets("Sheet2").OLEObjects(oLabel).Interior.ColorIndex = 15 'gray     'Worksheets("Sheet2").OLEObjects(oLabel.Name).Interior.ColorIndex = 4 'green     LblCount = LblCount + 1 Next oLabel  End Sub</code></pre>