case sensitive

[ksnapp]

Hi,

Is there a way to make this not case sensitive. It looks in cells fo
a spefied string and then inserts a value or string in a differen
column

Sub b_finder() ' deltes rows with reserve in column 3
Const cColumn = 8
Dim I As Long, lngLastRow As Long
With ActiveSheet
lngLastRow = .Cells(Rows.Count, cColumn).End(xlUp).Row
For I = lngLastRow To 1 Step -1

cSearch = "B"
If InStr(1, .Cells(I, cColumn).Value, cSearch) > 0 Then
Cells(I, cColumn - 7).Value = "b"
End If
Next
End With
end su

 

[Frank Kabel]

Hi
change the line
If InStr(1, .Cells(I, cColumn).Value, cSearch) > 0 Then

to
If InStr(1, UCase(.Cells(I, cColumn).Value), cSearch) > 0 Then

 

[Rob van Gelder]

InStr(1, .Cells(I, cColumn).Value, cSearch, vbTextCompare)

 

[ksnapp]

works like a charm thank yo