Why isn't my VBA code running?

[DavyJones90]

Hey guys and thanks in advance, this is my code

For Each Cl In .Range("F6", .Range("F" & Rows.Count).End(xlUp))
            If Dic.exists(Cl.Value) Then Cl.Offset(25, 4).Value = Dic(Cl.Value)
            If Cl.Value = ChrW(2197) Then Cl.Offset(26, 0).Value = "RANGE-Reverse All Arrows to " + ChrW(2191)
        Next Cl

The first part works perfectly, It basically take a value off a different sheet, compares that another value exists and if it does offsets the dictionary value in a certain field.

The second part does nothing. basically, the values are arrows, which I cannot display in VBA, so I wanted to use the hex code (I also tried the same with &H).

Any idea what I am dooing wrong?

 

[Oaktree]

If Cl.Value = ChrW(&H2197)

If that still doesn't work, try using the immediate window to check ?worksheetfunction.dec2hex(worksheetfunction.Unicode(Range("F6"))) to ensure it returns 2197. If not, you have a different Unicode character than 2197 in cell F6.