Atribuir, no excel, uma cor igual a de uma outra celula

[Kuya]

Pessoal,

 

Estou precisando atribuir uma cor a uma celula, mas sendo igual a uma outra.

 

tipo:

 

A cor da D4, seja igual a cor da A1

 

na formatação condicional, consigo manipular os dados por formulas e tudo mais, mas a cor sempre tenho que escolher

 

usando VBA, consigo obter o codigo da cor tal, mas como faço para uma celula receber a cor?

 

obrigado........

 

 

 

[Basole]

tente isso: 

Range("d4").Interior.Color = Range("a1").Interior.Color