Como eu mudo de cor toda vez que meu comprimento é maior que 5 caracteres no VBA

Question

Como pode transformar minha cor em verde quando meu comprimento exceder mais de 5 caracteres. Eu continuo recebendo o erro "objeto não suporta esta propriedade"

   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

Em vez de

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

Eu mudei para

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