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