Delete Rows if value in cell does not equal desired value ACROSS multiple sheets

Hi,
I am trying to delete rows from selected sheets in a workbook if the value in a column does not equal 'Paper'

Below is what I have and I have attached a workbook. I can get it to delete the rows I want on the active worksheet but it doesn't work on the other sheets when I select multiple sheets. In this case I want to be able to select the tabs for Sheet1, Sheet2, and Sheet3 and have it delete all rows except for the header and rows that have 'Paper' in column A. Please help.

Please Login or Register  to view this content.

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.

You were close:

Please Login or Register  to view this content.

The significant error was setting the range outside the For Each loop.