Hi all, I have a spread sheet that i am copying the entire line if
column 4 has the letters "lc" in, it works great as long as the letter
case is lower. If a user puts the case, in the system that the
spreadsheet gets it's information from, in upper case then my code will
ignore it.
Is there a way to "Ignore the case" that i can use ??
The code i use is below.

ANy help would be much appreciated.

Sub OnlyLcLcParts()
'
   Dim todaysDateLong As String
   Dim sh1 As Worksheet, sh2 As Worksheet
   Dim rng1 As Range, cell As Range
   Dim rw As Long, Gpls As Date, tDay As Date
   Dim res As Variant, dDiff As Long
'    Range("A1").Select
   Set sh1 = Worksheets("ALL LC PARTS")
   Set sh2 = Worksheets("QUALITY PARTS")
   rw = 2
   Set rng1 = sh1.Range(sh1.Cells(3, 1), sh1.Cells(3, 1).End(xlDown))
   For Each cell In rng1
     If Application.CountIf(rng1, cell.Value) = 0 Then

     Else
       If cell.Offset(0, 4) = "lc" Then '*** Data ****
                       cell.EntireRow.Copy sh2.Cells(rw, 1)
                       rw = rw + 1
        End If
     End If
   Next
'    PctDone = Counter + 0.35 '---1
'    Call UpdateProgress1(PctDone)
   ColorWhenValueChangeRepLc
End Sub


Best regards,

Les Stout