VBA - Search workbook for list in sheet1, and delete all rows containing those values

[The Power Loon]

I found similar requests here, but nothing that I could make work for what I needed.

I have a list of over 200 inactive part numbers (and more may need to be added) in Sheet1 column A. In all other sheets in the workbook I want to search through column C, starting at row 8, and delete the row if column C contains a inactive part number from the Sheet1 list.

I apologize for not including a draft of the non-functional script I have, but I'd prefer to avoid tainting your consideration of the best method by which to complete this.

I appreciate your time and consideration of this request,

 

[Fluff]

Do you have a header row in row7?

 

[Fluff]

Assuming the answer to post#2 is yes, try

Sub ThePowerLoon()
   Dim Ws As Worksheet, S1 As Worksheet
   Dim Cl As Range
   
   Set S1 = Sheets("Sheet1")
   With CreateObject("scripting.dictionary")
      For Each Cl In S1.Range("A2", S1.Range("A" & Rows.Count).End(xlUp))
         .Item(Cl.Value) = Empty
      Next Cl
      For Each Ws In Worksheets
         If Not Ws.Name = S1.Name Then
            Ws.Range("A7:C7").AutoFilter 3, .Keys, xlFilterValues
            Ws.AutoFilter.Range.Offset(1).EntireRow.Delete
            Ws.AutoFilterMode = False
         End If
      Next Ws
   End With
End Sub

 

[The Power Loon]

Unfortunately, there is no header in row 7. I'm guessing the script you wrote requires one?

 

[Fluff]

As long as row 7 isn't blank it should work

 

[The Power Loon]

It works perfectly.

Thank you for your work on this, I greatly appreciate it.

 

[Fluff]

You're welcome & thanks for the feedback.