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

*** Sent via Developersdex http://www.developersdex.com ***