Range(ActiveCell.Value).Replace What:=Range("B9"), _
Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


--
Regards,
Tom Ogilvy



"Rewop Eilsel" wrote in message
...


Thank you Tom for your response which works well, but not for my problem.
I won't the REPLACE value to be read from a fixed cell on the worksheet
and
the ACTIVECELL to locate the area for its implementation. Perhaps you can
regurgitate it to accomplish that.

Les Power