Cambio color de varias formas

[Juan Pelfort 2]

Hola, si alguien me pudiera ayudar, necesito saber como cambiar el color de no una sino de varias formas o dibujos,

lo he probado con varios códigos que se exponen en internet, pero no me funciona, le dibujo una forma le doy el nombre y copio

los códigos tal cual, y no hace nada, alguien puede ayudarme ?

gracias

[Antoni 4,454]

Suponiendo que quieras cambiar el color de 3 formas con los nombres PERA, NARANJA y MANZANA:

ActiveSheet.Shapes.Range(Array("PERA", "NARANJA", "MANZANA")).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
ActiveCell.Select

 

Edited June 15 by Antoni