Looping thru Textboxes

Excel VBA newbie ... please be gentle.

I have a userform with 40 textboxes, however depending upon the value of a given cell - some of these textboxes should be hidden, eg A1="10", textboxes 11-40 should be hidden.

I need to do something like

maxTB = range("A1").Value
for I in maxTB+1 to 40
textboxI.hidden
next

but for the life of me I can't find anything in any forum or helpsite.

Anyone ?

Hello Zac,

You almost have it. Not bad for newbie.
________________________________________________________________

Dim MaxTB As Long
Dim I As Long
Dim TB As Object


MaxTB = Range("A1").Value

For I = MaxTB + 1 To 40

' Set Object Variable TB to point to TextBox'n' on the user form
Set TB = UserForm1.Controls("TextBox" & Trim(Str(I)))

' Set the TextBox Visible property to False - Hide it!
TB.Visible = False

Next I
________________________________________________________________

Hope this helps,
Leith Ross

Marvellous.

Thanks a bunch.

Hi Zac,

You're welcome. Keep up the good work!

Best Wishes,
Leith Ross