VBA Like statement

[crmpicco]

nice 1:

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