Valor de celda en un Label

[kraquem]

Hola, por favor quisiera saber como mostrar los valores de tres celdas (A1, B1, C1) en tres diferentes labels al abrir un formulario, intenté con el siguiente codigo, pero me da error.

Private Sub CommandButton1_Click()
Dim celda As Range
Dim strmsj$
For Each celda In Range("A1:C1")
If celda <> "" Then
strmsj$ = strmsj$ & celda & vbCrLf
End If
Next
End Sub

Label1=(A1)
Label2=(B1)
Label3=(C1)


Desde ya gracias a todos por su ayuda.

Saludos.

[Monimo]

Iniciado por kraquem

Hola, por favor quisiera saber como mostrar los valores de tres celdas (A1, B1, C1) en tres diferentes labels al abrir un formulario, intenté con el siguiente codigo, pero me da error.

Private Sub CommandButton1_Click()
Dim celda As Range
Dim strmsj$
For Each celda In Range("A1:C1")
If celda <> "" Then
strmsj$ = strmsj$ & celda & vbCrLf
End If
Next
End Sub

Label1=(A1)
Label2=(B1)
Label3=(C1)


Desde ya gracias a todos por su ayuda.

Saludos.

Pues a simple vista me parece q la declaración está mal, le falta el tipo:

Dim strmsj$ as [tipo, integer, string etc]

Ademas el for each se utiliza con elementos dentro de una colección, y el range q estas poniendo no es una coleccion de nada como objeto. Sí es una colección de celdas pero no hay como referenciarlas.
Además de que no entiendo para que es ese ciclo sería mas fácil solo poner:


Label1.text=range("A1").value
Label2.text=range("b1").value
Label3.text=range("c1").value