我的用户定义函数未返回格式化结果

Question

有人可以告诉我为什么这不起作用吗？

Function CHECKERROR1(a As Long, b As Long) As Range
    If a = b Then
    Else
        CHECKERROR1.Font.Color = vbRed
        CHECKERROR1.Value = "ERROR"
    End If
End Function

当两个数字不匹配时，我想返回一个红色的“错误”