¿Cómo insertar el nombre de la etiqueta como valor en una celda?

Hola Mar,

?Podrias aclarar de que etiqueta estas hablando exactamente? Si te estas
refiriendo al control ActiveX (o de formulario) depositado en una hoja de
calculo, entonces podrias usar el siguiente macro:

Sub Test()
With ActiveSheet
.Range("A1") = .Shapes("Etiqueta1").Name
End With
End Sub

Para el control etiqueta ActiveX tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .OLEObjects("Etiqueta1").Name
End With
End Sub

Para el control etiqueta de formulario tambien puedes usar esta instruccion:

Sub Test()
With ActiveSheet
.Range("A1") = .Labels(1).Name
End With
End Sub

Donde "Etiqueta1" es el nombre del control y el 1 es el indice del control.

Saludos,
KL

"Mar" wrote in message
news:

Buenos días, ¿sabe alguien cómo insertar el nombre de una etiqueta como
valor
de una celda?
Muchas gracias.