Maybe...

dim i as long

for i = 1 to 3
me.controls("Pax" & i).caption = cells(i+4,"D").value
next i

for i = 31 to 33
me.controls("textbox" & i).visible = false
next i

But I don't see how either example comes close to the stuff you tried. Where
does Seat fit in?

Excel 2003 - SPB wrote:

I have many areas of code that could be cleaned if I only knew how
I think it would be a "For" statement in both cases
example 1
Pax1.Caption = Range("d5")
Pax2.Caption = Range("d6")
Pax3.Caption = Range("d7")
etc
example 2
TextBox31.Visible = False
TextBox32.Visible = False
TextBox33.Visible = False

I tried this

For i = 1 To 6

Seat " & i &.Caption = Range(""a" & i + l2 & """)"
next i

with no luck, I get a compile error highlighting "Seat"

Many thanks for any help

--

Dave Peterson