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
Random Solutions  
 
programming4us programming4us