Vba find replace adjacent cell and go to next find if not found

Closed
cyncerq Posts 1 Registration date Friday August 8, 2014 Status Member Last seen August 8, 2014 - Aug 8, 2014 at 04:29 PM
Hi, I am trying to write a code to find REO in column A and if found replace cell in column B with "(((". Then I want to find AAA in column A and if found replace cell in column B with "777", I am stumped at how to get my macro to proceed when the value is not found in column A.

Cells. Find(What:="REO", After:=ActiveCell, LookIN:=xlFormulas, LookAt_
:xlPart, SearchOrder:=xlByRows, SearchDirection:=Next, MatchCase:=_
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, !).Range("A1").Select
Selections.NumberFormat="@"
ActiveCell.FormulaR1C1="((("
ActiveCell.Offset(1,0).Range("A1").Select
Cells.Find ....etc.....


I know how to start the search for "AAA" but I don't know how to program the macro to skip the replace if it can't return the search results and I have about 7 find replaces to do with a different values. Any help would be appreciated.