VBA Skift af farve på et ord

Sub Test_farv_ord()
Dim h As String
h = "hej"

    If InStr(Range("A5").Value, h) = 0 Then
        MsgBox "Kan ikke finde: " & h
    Else
        With Range("A5").Characters( _
        Start:=InStr(Range("A5").Value, h), _
        Length:=Len(h)).Font
        .Color = -16776961
    End With
    End If
   
End Sub