macro di excel

[cicuta]

Ciao a tutti. Sto cercando di fare una macro di excel che legge il colore di riempimento di una cella e lo copi in un rettangolo.

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

Così imposto un colore specifico ma come faccio a dirgli:

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = colore di riempimento della cella("A1") ?!?!?!

Grazie!!!

[cicuta]

:quote: :quote: :quote: dai ragazzi nessuno può darmi una mano!