To Delete specific letters from the cells

Hi,

Below is my partial programming code

na = Split(Cells(1, i - 1).Address, "$")(1)
If Left(Cells(x + 1, k), 1) = na Then
    Selection.ClearContents
End If

Using some condition I am getting the address of a cell. My program show a output of 'C' according to the data I have. Now I need to delete the char 'c' in all cells. The problem is below

my program works suppose if char 'c' appear as a single char in a cell.
It does not work in the combination of characters.

C -> It works
NC -> It does not work

Some programming modification needed in this line

If Left(Cells(x + 1, k), 1) = na Then

Please help.