VBA formatting

[Vesa]

I would like to create a simple custom function that
would return the value from a specific cell and change
the color to red, i.e. if there is a number 5 in cell A1,
I could type in any cell:

=COLORNUMBER(A1)

and then the result would be red 5.

I can do:

Function Colornumber(xxxx)
Colornumber = xxxx
End Function

However, how can I add the changing to red part to the
formula?

Help would be much appreciated.

 

[David McRitchie]

please post you question only once to a single newsgroup.
There is no need to repost to change the title, you have answers
in your other posting in this newsgroup.