Dim rng as Range, cell as Range
With ActiveSheet
set rng = intersect(.columns(3),.UsedRange)
End with
set cell = .Find(what:="investigating",Lookat:=xlPart)
if not cell is nothing then
do
cell.offset(0,1).Value = cell.value
cell.clearcontents
set cell = rng.findnext(cell)
Loop while not cell is nothing
end if

--
Regards,
Tom Ogilvy


"Mark" wrote in message
...
I am using Excel 97, I have a column of data which needs separating I am
wanting to find each cell that contains in part of the cell the word
'investigating' then with each cell found move it to the next column to
the
right.

I have tried the instr function but obviously doing something wrong!

Any help would be appreciated.

--
Mark