Question : Rewrite validating script

Hi Experts,

I need Experts help to refine the attached script. The code has been used for crosschecking data and highlight if there is any missing string. Is that possible to omit highlighting as a mistake if its got to do with a font type(small or big caps) . E.g.

Column_C: Tablescapes : Life On A Plate
Column_D: Tablescapes : Life on a Plate

Hope Experts can help me to add this feature.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:



Sub Crosscheck2()
For i = 5 To Range("F65536").End(xlUp).Row
Cells(i, 3).Value = Trim(Mid(Cells(i, 3).Value, InStr(Cells(i, 3).Value, ":") + 1))
  If Left(Cells(i, 6).Value, 5) <> "M0000" Then
    If Right(Cells(i, 3).Value, Len(Cells(i, 6).Value)) <> Cells(i, 6) Then
      Cells(i, 3).Interior.ColorIndex = 44
    End If
  Else
    If Cells(i, 4).Value = "" Then
      Cells(i, 4).Interior.ColorIndex = 44
    ElseIf Left(LTrim(Cells(i, 3).Value), Len(Cells(i, 4).Value)) <> Cells(i, 4).Value Then
      Cells(i, 3).Interior.ColorIndex = 44
    End If
  End If
Next
End Sub

Answer : Rewrite validating script

Replace: If Right(Cells(i, 3).Value, Len(Cells(i, 6).Value)) <> Cells(i, 6) Then
With: If UCase(Right(Cells(i, 3).Value, Len(Cells(i, 6).Value))) <> UCase(Cells(i, 6).Value) Then

And: ElseIf Left(LTrim(Cells(i, 3).Value), Len(Cells(i, 4).Value)) <> Cells(i, 4).Value Then
With: ElseIf UCase(Left(LTrim(Cells(i, 3).Value), Len(Cells(i, 4).Value))) <> UCase(Cells(i, 4).Value) Then