Excel - Inserción de datos a multiples label

Como puedo ir agregando datos a varios label (casi 200) y colores a varios Image. Se puede iterar el objeto Label1, Label2... Labelx.

ejemplo para entender el concepto:

while fila < x
Userform1.Labelx.Caption = Cells(fila, columna).value
If Cells (fila, columna) <> "" then
Userform1.Imagex.BackColor = vbGreen

fila = fila +1

cualquier ayuda es bienvenida. gracias

¿Estan en una hoja o en un UserForm?

Abraham Valencia
Microsoft MVP 2010

Estan en un UserForm

Aclaro aún más

Los Label e imagenes están en un UserForm y los datos estan en una hoja de excel.

Saludos desde Chile.

Sebastian Ferreira
Ingeniero Civil Industrial

Dim Ctl As MSForms.Control
Dim la As MSForms.Label
Dim sName$
Dim x&, fila&, columna&
On Error Resume Next
fila = 1
columna = 1
x = Me.Controls.Count
While fila < x
sName = "label" & fila
For Each Ctl In Me.Controls
Err.Number = 0
Set la = Ctl
If Err.Number = 0 Then
If VBA.LCase(Ctl.Name) = VBA.LCase(sName) Then
Ctl.Caption = Cells(fila, columna).Value
Exit For
End If
End If
Next
fila = fila + 1
Wend

Set Ctl = Nothing
Set la = Nothing

Saludos, desde Baires, JuanC

Muy agradecido por tu respuesta.

Me funcionó. Pero estoy revisado como podría colorear la imagen adyacente (cada label va con una imagen). Su color dependerá de varias condiciones. Te aviso si tengo problemas.

Me has calmado un dolor de cabeza... ahora quiero calmar otro.

Muchos saludos

Sebastián, Viña del mar, Chile

hola a todos alguien podria ayudarme para poder imprimir en una label1.caption un dato de una celda de excel.