This code runs thru but I am not getting the desired affect, Visible =
false for the condition.
I am checking a Cell for interior color, if the interior color is a
match then I want the coorosponding TextBox set "Visible = False"

Dim obj As OLEObject
Dim i as Long

For Each obj In Worksheets("sheet2").OLEObjects
If TypeOf obj.Object Is MSForms.TextBox Then
With Worksheets("sheet2")
For i = 1 To 50
..OLEObjects("TextBox" & i).Visible = _
..Range("A" & 10 + 1).Interior.ColorIndex = 3
Next i
End With
End If
Next

p.s.
The initial code was from Bob Phillips, Thanks Bob ;)
But it would not complete.

Dim i As Long
With Worksheets("sheet2")
For i = 1 To 50
..OLEObjects("TextBox" & i).Visible = _
..Range("A" & 10 + 1).Interior.ColorIndex = 3
Next i
End With

So I attempted to fix it.

Any help is appreciated.


--
Rick_Stanich

I am me
------------------------------------------------------------------------
Rick_Stanich's Profile: http://www.excelforum.com/member.php...o&userid=28957
View this thread: http://www.excelforum.com/showthread...hreadid=517920