Replace text in certain color

I added a modification that should change red-fonted blank cells with black ones. I also included the C2:C2001 modification to be better suit your range. Let me know if it does the trick.

Sub ChangeRed()
Dim i As Integer
Dim x As Range

Application.ScreenUpdating = False
For Each x In Range("C2:C2001")
    If x.Value = "" And x.Font.Color = vbRed Then
        x.Font.Color = vbBlack
    End If
    For i = Len(x.Value) To 1 Step -1
        If x.Characters(i, 1).Font.Color = vbRed Then
            If x.Characters(i, 4).Text = x.Characters(i, 1).Text & "ABC" Then
                x.Characters(i, 1).Delete
            Else
                x.Characters(i, 1).Font.Color = vbBlack
                x.Characters(i, 1).Text = "ABC"
            End If
        End If
    Next i
Next x
Application.ScreenUpdating = True
End Sub