Changing label captions

[ToddG]

What would be the "best" way of changing the captions of a bunch of labels at the same time instead of:

Private Sub ComboBox1033_Change()

Label880.Caption = ComboBox1033.Value
Label881.Caption = ComboBox1033.Value
Label882.Caption = ComboBox1033.Value
Label883.Caption = ComboBox1033.Value

End Sub

 

[Ruddles]

For i = 880 To 883
   UserForm1.Controls("Label" & i).Caption = ComboBox1033.Value
Next i