Deleting some data using Excel VBA and ranges?

Sub DeleteCodes() Dim InRange As Range, InCell As Range Dim CritRange As Range Dim v, f As Range Set InRange = Range("Data") ' all selected source cells Set CritRange = Range("List") ' the named range of words to be excluded Application. ScreenUpdating = False For Each InCell In InRange. Cells Set f = CritRange.

Find(InCell. Value, , xlValues, xlWhole) If f Is Nothing Then InCell. Value = "" Next InCell Application.

ScreenUpdating = True End Sub.

Try: Sub DeleteCodes() Dim rCell As Range Application. ScreenUpdating = False For Each rCell In List. Cells If Application.

WorksheetFunction. CountIf(Codes, rCell. Value) = 0 Then rCell.

Value = "" Next rCell Application. ScreenUpdating = True End Sub.

I interpreted the question as Tim did and based on the OP's code. – Reafidy Jun 15 at 0:36 @Readfidy, yes, as per his instructions, not his code. S code is messed up and Tim took his cue from that.

See the 3rd paragraph. (If you want to edit it back, go ahead, I've no dog in this hunt). – Lance Roberts Jun 15 at 6:16 Okay.

Will leave as is, thanks. – Reafidy Jun 15 at 6:30.

I cant really gove you an answer,but what I can give you is a way to a solution, that is you have to find the anglde that you relate to or peaks your interest. A good paper is one that people get drawn into because it reaches them ln some way.As for me WW11 to me, I think of the holocaust and the effect it had on the survivors, their families and those who stood by and did nothing until it was too late.