VBA funktion til "udvidet" betinget formatering

Sidder med en funktion i VBA, som jeg ikke kan få til at virke...

Resultatet af cellen skal være, at baggrundsfarven i cellen styres af funktionen, samtidig med at resultatet vises.

Nedenstående er min kode indsat. Det der mangler er, at dér hvor der står eksempelvis "Farve = R" skal der istedet indsættes en kode, som formaterer cellen, således at baggrunden bliver rød...
Kan man det i VBA???

--------------------------------------------------------------
Public Function Indikator(fra As Double, til As Double, Art As String, Bund As Double, Top As Double)

Application.Volatile
Dim Farve As String
Farve = "H"
If Art = "I" And ((til - fra) / fra) < Bund Then
Farve = "R"
ElseIf Art = "I" And ((til - fra) / fra) > Top Then
Farve = "G"
End If

If Art = "I" And til < 0 And fra > 0 Then
Farve = "R"
ElseIf Art = "I" And til > 0 And fra < 0 Then
Farve = "G"
End If


--------------------------------------------------

Håber at spørgsmålet er forståeligt.


På forhånd tak