Colorize cells with comments that have specific word (Conditional format)

[Schturman]

Hi.
I used VBA code from this post and it working good, but have one problem...

Function CommentText(Cell As Range, Txt As String) As Boolean
    Dim x As Comment
    Set x = Cell.Comment
    If x Is Nothing Then
        CommentText = False
    Else
        CommentText = x.Text Like "*" & Txt & "*"
    End If
End Function

And in the Conditional format:
=CommentText(A1,"abc")

After detecting the word, it not colorize the cell.... I need to press Fn+F2+Enter (F9 not work), and it colorize cell for one sec. But If I switch to near sheet and back to my sheet, it colorize and stay active.
Is it possible to improve it somehow without switching to another sheet ?
Thanks