Thanks for the Do While...Loop help. Now I'm just missing the msgbox
whether or not to allow change. The part that I need help on is
indicated within this code.

'set String (or Long) = "total operating expenses"
'This is so that it's replaceable for another search word
'in the future
'so that Find: "total operating expenses" = the String

Cells.Find(What:="total operating expenses", After:=ActiveCell, LookIn:=
_
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False,
SearchFormat:=False).Activate
ActiveCell.Offset(-2, 0).Range("A1").Select
Do While ActiveCell < Empty
ActiveCell.FormulaR1C1 = "Other Operating Expenses"

'Msgbox: [the old word content of this cell] will be replaced by [the
'String]. vbYes to Replace and move up another cell. vbNo to not
'replace and move up another cell.
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop

Thanks again Wend,
Ricky

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