Loop help please!

[Rick_Stanich]

I just dont quite grasp Loops yet. :sigh:
Mainly because I rarely need them.
Any how, I'm stuck so to speak, I have 60 TextBox's to iterate thru and check a condition, how do I complete this?

For code, all i have is the first textbox.

"If Worksheets("sheet2").Range("a10").Interior.ColorIndex = 3 Then
TextBox14.Visible = False
End If"

[Bob Phillips]

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

This compares Textbix1 with A11, 2 with A12, etc.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Rick_Stanich" <[email protected]>
wrote in message
news:[email protected]...
>
> I just dont quite grasp Loops yet. :sigh:
> Mainly because I rarely need them.
> Any how, I'm stuck so to speak, I have 60 TextBox's to iterate thru and
> check a condition, how do I complete this?
>
> For code, all i have is the first textbox.
>
> "If Worksheets("sheet2").Range("a10").Interior.ColorIndex = 3 Then
> TextBox14.Visible = False
> End If"
>
>
> --
> 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=517055
>

[Rick_Stanich]

Now I see how the loop is created!
Unfortunately I get an error at the ".OLEObjects" line.

"Run-time error 1004"
"Unable to get OLEObjects property of the worksheet class"

I think "OLEObjects" pertains to worksheets and not TextBox's.
Maybe I did not mention I am working from a Form. (maybe )

Maybe I just don't understand loops

[Rick_Stanich]

This code runs thru but i am not getting the desired affect, Visible = false for the condition.

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

Any help is appreciated.