hi,
is posible to add a color to the deleted cells after

or Each rv In ChkRng
If Not IsEmpty(rv) Then
For rw = 1 To UBound(TRVals)
For colm = 1 To UBound(TRVals, 2)
If TRVals(rw, colm) = rv Then
TRVals(rw, colm) = Empty

i did try with cells(rw, colm).interior.color = rgb (255,0,0)

but doesn't work as i excpected

thx for your help