Search for a test string and if found insert 'x' in clumn 'A'

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