Моя пользовательская функция не возвращает отформатированные результаты

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

Я хочу вернуть красный 'ОШИБКА', когда два числа не совпадают