Cell String Value Not Changing

[Ark68]

       With ws_cd1
            cnt_date = Application.WorksheetFunction.CountIf(.Columns(1), n_date)
            cnt_rows = Application.WorksheetFunction.Count(.Columns(1))
            rte = cnt_rows - cnt_date
            .Unprotect
            .Range("AP3").Value = "CORE DATA   " & Chr(208)
            .Range("AP3").Characters(Len(.Range("AP3").Value), 1).Font.Name = "Webdings"
            .Range("A1").AutoFilter Field:=1, Criteria1:="<>n_date"
            test = Application.WorksheetFunction.Subtotal(2, .columns(1)))
        End With

The code in blue is supposed to replace the existing value in cell AP3 (="CORE DATA " & chr(207)) with the value of ("CORE DATA " & chr(208))
The special characters are converted to symbols with the Webding change of the last character in the string.

Webdings chr(207) is a closed lock. This code should replace that value with Webdings chr(208) being an open lock.

For some reason, the string value in cell AP3 is not changing as expected. The lock (chr(207)) remain.

 

[teylyn]

the two blue lines run fine for me. What happens if you step through them and watch the cell?

 

[Ark68]

Thanks teylyn for reaching out to help. It's appreciated.
I realized I was referring to the wrong worksheet. Duh.

 

[teylyn]

time for the weekend to roll up ....