Farbe (Formatierung) übertragen

ich wünsche mir eine Funktion, die in die Zelle, in der die Funktion steht, die Farbe (oder allgemein das Zellformat) der referenzierten Zelle überträgt. (Mit einer bedingten Formatierung geht das nicht, weil ich hierbei ja immer eine ganz bestimmte Farbe vorgeben muss). Ich stelle mir vor, dass die Funktion in etwa so aussehen müßte:

Function CopyColor( Zelle as Range)

'Ermittlung der Zellfarbe der Quell-Zelle
Farbe = Zelle.Interior.ColorIndex

<...>

End Function

Was mache ich jetzt bei <...> damit die Farbe auf die Zielzelle übertragen wird?

CopyColor.Interior.ColorIndex = Farbe

funktioniert nicht!

Herzlichen Dank für eine Idee,

Gruß Hannes