Breaking the rules for UDF's (User Defined Functions)

[Rick Rothstein]

Rick,

This worked for me

Sub TooCool(InCell As Range, PushTo As Range)
  PushTo.Value = "The square of " & InCell.Value & " (in " & _
                 InCell.Address(0, 0) & ") is " & InCell.Value ^ 2 & "."
    PushTo.Interior.Color = vbYellow
    PushTo.Font.Color = vbRed
End Sub

Function DoCool(Rng As Range) As String
  If Rng.Value < 0 Then
    DoCool = "Number in " & Rng.Address(0, 0) & " is less than zero."
  Else
    DoCool = "Number in " & Rng.Address(0, 0) & " is greater than, or equal to, zero."
  End If
  Evaluate "HYPERLINK(TooCool(" & Rng.Address & ",J3))"
End Function

M.

You are right, it does work... in XL2007 and above! I do all my testing in XL2003 figuring if it works there, it will work anywhere. Well, that appears to not be true... the colors do not work in XL2003, but it does work in XL2007 and later. Thanks for trying it out, although I am not sure why it did not occur to me to so myself.

EDIT NOTE: I just tried making the font bold and italicized... didn't work.