try this for your string in col E (5)

Sub findanddeletepartofstring()
On Error Resume Next
mycell = Columns(5).Find("abcde").Address
Range(mycell) = Left(Range(mycell), 3)'=abc
End Sub
--
Don Guillett
SalesAid Software

"john mcmichael" wrote in message
...
I have a spreadsheet that I'm trying to run a seach on to find a specific
sting of test. I can run the search but, now I want to ake it one step
further. Is it possible to search for a sting of text and then delete
part
of the sting and leave some of the text? Then is it possible to do this a
macro? Thanks for the help.