Hi Johan,

Am Mon, 16 Oct 2017 05:12:41 -0700 (PDT) schrieb :

In steps;
- Select all rows of the selected cells.
- Delete the text 'xyz' (if there is) in all cells of column 'FA'
(keep the selected rows from the first step selected).

try:

Set myRng = Intersect(Selection, Columns("FA"))
myRng.Replace what:="xyz", replacement:=""


Regards
Claus B.
--
Windows10
Office 2016