VBA Like statement

[crmpicco]

changed to this, but still same problem....

If Trim(Range(sLeftRange).Text) <> UCase(Trim(Range(sLeftRange).Text)) And Not Trim(Range(sLeftRange).Text) Like "Page" Then
                                Range(sLeftRange).Interior.ColorIndex = iColour
                            End If