Geht das? Zelle aus function heraus färben

Function heraus die aktive Zelle unter bestimmten Bedingungen kennzeichnen. Habe folgendes mal ausprobiert, leider ohne Erfolg:

Function test(a As Double) As Double
If (a < 0) Then
With ActiveCell.Font
.Italic = True
End With
End If
test = a * a
End Function


Die 

Function befindet sich in einem Modul. Wenn ich das ganze in eine Subroutine packe und diese manuell starte, klappts. Rufe ich die Subroutine aus einer 

Function heraus auf, klappts net.
Danke!
Thomas