First select a pile of cells and then run:

Sub findit()
Dim s As String
Dim r As Range
s = "purchase"
For Each r In Selection
If InStr(1, r, s) Then
Cells(r.Row, 1) = "x"
End If
Next
End Sub
--
Gary''s Student


"TCL" wrote:

Anyone have a script to
1. search an entire worksheet (say A1 through AZ2500) for a specific text
string (like 'purchase') and
2. if the string is found anywhere in the row insert an 'x' in column 'A'
(of the IDed row).


Thanks