Как изменить цвет каждый раз, когда моя длина больше, чем 5 символов в VBA

Question

Как превратить мой цвет в зеленый, если моя длина превышает 5 символов? Я получаю сообщение об ошибке «объект не поддерживает это свойство»

   Sub deme()

     Dim lastrow As Long
     Dim a As Integer
     a = 1
     Dim cc As String
     Dim i As Long

       lastrow = Worksheets("sheet1").Range("C1").End(xlDown).Row - 1
          For i = a To lastrow

          cc = Worksheets("sheet1").Range("C" & i)
            If Len(cc) > 5 Then
                   Worksheets("sheet1").Character(cc, i).Font.Color = vbRed

             End If




         Next i


  End Sub

Answer 1

Вместо

Worksheets("sheet1").Character(cc, i).Font.Color = vbRed

Я изменил это на

Worksheets("sheet1").Range("C" & i).Font.Color = vbRed