Rango celda en vez de texto. .Range("A1")

[juan_dinio69]

Buenas noches, me podéis ayudar con esta macro? es para generar codigo de barras, la cuestion que solo me funciona  de la siguiente manera:

Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, "11Q94PTT"

 

Pero me gustaría que se cambiara con un rango de una celda. ¿ seria posible algo asi?  pero me da error

Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet.Range("=F1C1")

 

 

 y mil gracias 

code128.rar

[Antoni]

Prueba así:

   Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")

 

[juan_dinio69]

Hace 22 minutos , Antoni dijo:

Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")

joe muchas gracias   me obsesioné poniendo .Range  en vez de coma, y también con el rango de la celda

 

Muchas gracias