Is There A Simpler Way To Update Label Captions?

[VitesseCarOwner]

I've created a userform with in excess of 100 labels which I need to update based on the value in a cell. I'm currently using the method below to update, but was wondering if there was an easier/simpler way?

Label1.Caption = Sheet4.Range("E142").Value
Label2.Caption = Sheet4.Range("F142").Value
Label3.Caption = Sheet4.Range("G142").Value
Label4.Caption = Sheet4.Range("H142").Value
Label5.Caption = Sheet4.Range("I142").Value
Label6.Caption = Sheet4.Range("J142").Value
Label7.Caption = Sheet4.Range("K142").Value
Label8.Caption = Sheet4.Range("L142").Value
Label9.Caption = Sheet4.Range("M142").Value
Label10.Caption = Sheet4.Range("N142").Value

 

[Norie]

Perhaps.

For I = 1 to 100
    Me.Controls("Label" & I).Caption = Sheet4.Cells(142, I+4).Value
Next I

 

[VitesseCarOwner]

Thanks, that's a lot simpler.

Am I correct in assuming that I+4 refers to the column number?