help with a loop

[dantheman9]

Hi,
how could I loop through the following:

Userform1.Name1.Text = Range("A12")
Userform1.class1.Text = Range("A14")
Userform1.Name2.Text = Range("A17")
Userform1.class2.Text = Range("A19")
Userform1.Name3.Text = Range("A22")
Userform1.class3.Text = Range("A24")
Userform1.name4.Text = Range("A27")
Userform1.class4.Text = Range("A29")
Userform1.Name5.Text = Range("A32")
Userform1.class5.Text = Range("A34")
Userform1.Name6.Text = Range("A37")
Userform1.class6.Text = Range("A39")

 

[iliace]

Probably something like:

  Dim i As Long
  For i = 1 To 6
    UserForm1("Name" & i).Text = Range("A" & 12 + (i - 1) * 5).Value
    UserForm1("class" & i).Text = Range("A" & 17 + (i - 1) * 5).Value
  Next i

 

[dantheman9]

thanks