Type mismatch error 13

[Toyo613]

Hello there,

I can figure out why I am getting a Type mismatch error 13 for this code.

  
If Range("A" & i).Value <> "" And Range("C" & i).Value = "TCI" And Not (Range("F" & i).Value Like "*Due:*") Then
Range("F" & i).Interior.ColorIndex = 4
Range("G" & i).Interior.ColorIndex = 3
Else
Range("G" & i).Interior.ColorIndex = 2
End If