Hi JJ, try the following....

Sub Tester()
'
Dim rng As Range, rCell As Range
Dim WB As Workbook, SH As Worksheet
Dim r As Range, lastRow As Long

Set r = ActiveSheet.UsedRange
lastRow = r.Rows.Count
Const sStr As String = "cat" '<<===== CHANGE

Set WB = ActiveWorkbook '<<===== CHANGE
Set SH = WB.Sheets("Sheet1") '<<===== CHANGE
Set rng = SH.Range("A1:A" & lastRow) '<<===== CHANGE Column to
search

For Each rCell In rng.Cells
With rCell
If LCase(rCell.Value) Like "*cat*" Then
rCell.Offset(0, 2).Value = "Cat" '<<=Change
End If
End With
Next rCell
End Sub


Les Stout

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