Foro de programacion

Intento manipular el color de objetos AutoShapes "Oval" en base a un vector que leyo los colores que se van a asignar a cada objeto.

las dudas son:
1.- Asignar un el nombre de cada Shape a una variable de tipo:
Dim Cantera(1 To 23) As Shapes

2.- Seleccionar cada Shape por medio de un contador de tipo: for n=1 to X
ActiveSheet.Shapes(Cantera(1)).Select
! esto NO funciona

3.- Asignar un color desde una variable
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Color(1)
! esto SI funciona

Muchas gracias !!!