Proxy Conditional Formatting Function

[cloudvirake]

I have been trying to include some sort of conditional formatting within the function code in Excel. However, I am having trouble getting it to work. Anyone have any idea why the code below will not work:

Function Compare(First As Double, Second As Double)

Dim Row As Integer
Dim Col As Integer

ActiveCell.Select

If ((First - Second) > 0.1) Or ((First - Second) < -0.1) Then

Compare = "ERROR"
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Interior.Pattern = xlSolid

Else

Compare = "OK"

End If

End Function

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here