Hi Tbonekiller,
You explain it better then a lot of others :). There is no need to run the code on each sheet manually, the code will loop through all sheets. I added a line where you can add sheets you might want to exclude from the cleansing.
Here is the code:
Sub RunMe()
Dim ws As Worksheet
Dim mFind As Range
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Select
If ws.Name <> "Not this sheet" And ws.Name <> "Not this sheet either" Then 'Add the sheet names that need to be excluded here
For Each cell In Range("B6:B2506")
Set mFind = Range("K8:K508").Find(cell.Value)
If mFind Is Nothing Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "I")).ClearContents
End If
Next cell
End If
Next ws
Application.ScreenUpdating = True
End Sub
Best regards,
Trowa
PERFECT!!!!!! Thank you so much. This really helped me a lot.