Saludos a la comunidad y espero estén todos bien

Tengo el siguiente impasse....

Sheets("RESUMEN CC").Shapes.Range(Array("Drop Down 1", "Drop Down 2", "Drop Down 3", "Button 9", "Button 8", "Group 14", "Rectangle 1")).Select

Funciona perfecto ...pero...al ejecutar la aplicación en algún pc; en que el nombre del objeto (Rectángulo 1) está en español, me marca error. 

Hay alguna instrucción en VBA que pueda indicarme el lenguaje en que están los objetos ??

 

gracias de antemano

 

 

Hola,

No estoy muy seguro... Pero posiblemente antes de seleccionar pudieras hacer referencia a todos los shapes de la hoja e ir iterando en cada uno de ellos para recuperar el nombre y validar si se encuentra alguno con el nombre de "Rectangle 1" o "Rectángulo 1" y dependiendo del caso utilizar:

Sheets("RESUMEN CC").Shapes.Range(Array("Drop Down 1", "Drop Down 2", "Drop Down 3", "Button 9", "Button 8", "Group 14", "Rectangle 1")).Select

o

Sheets("RESUMEN CC").Shapes.Range(Array("Drop Down 1", "Drop Down 2", "Drop Down 3", "Button 9", "Button 8", "Group 14", "Rectángulo")).Select

Saludos!

Gracias @digitalboy veré que tal va lo que me indicas