Delete Rows except rows with specific values across multiple uniquely named Worksheets

Good afternoon. I'm in the final stages of building a workbook that will synthesize a huge amount of data from a CSV file into a usable format. I realize my code is not very elegant but I'm using the limited skills I have to attempt this time saving workbook.

After I call all of the macros in the workbook, I need one last macro to loop through all worksheets and delete specific rows based on the data contained in column D titled "Team" in each worksheet. For instance:

• In Worksheet "Non-Billable", I need to delete all rows that have data in column D leaving only the rows that have no data in column D.
• In Worksheet "Bangor", I need to delete all rows that have data in column D leaving only the rows that have "Bgr1", "BgrO" or "Mac" in column D.
• In Worksheet "Dover-Foxcroft", I need to delete all rows that have data in column D leaving only the rows that have "Dov" or "DovO" in column D.
• In Worksheet "Wilton", I need to delete all rows that have data in column D leaving only the rows that have "Far", "FarO" or "FarC" in column D.
• In Worksheet "Presque Isle", I need to delete all rows that have data in column D leaving only the rows that have "Pqi" in column D.
• In Worksheet "Waterville", I need to delete all rows that have data in column D leaving only the rows that have "WtvO" in column D.

I've attached the workbook and the code I'm using is pasted below.

Please Login or Register  to view this content.

Current Omit (template).xlsm

Thanks.

Matthew

Thanks for providing feedback. I've implemented your suggested code and I keep running into difficulties. I need to run the code a few more times to have a better sense of what's going wrong. I'll be in touch. Thanks.

Matthew

I've attached the workbook with you code installed. The code doesn't appear to be working as expected. I've run your code several times in the attached workbook and it appears to be deleting rows that should remain and not deleting rows that should be deleted. I'll keep working on it tomorrow. Any thoughts you might have would be appreciated. Thanks.

Matthew


Current Omit (template).xlsm

Okay, so I've amended the code with the above suggested changes and it's working great with one exception.

1) The rows containing no value in Column D are not deleting on Worksheets Bangor, Dover-Foxcroft, Presque Isle, Waterville and Wilton after the code is run.

Here's the code as it sits in the workbook now:

Please Login or Register  to view this content.

I've attached the most current version of the workbook below. Thanks.

Current Omit (template).xlsm

Thank you for your help. It works like a charm. Now to try my hand at speeding up the code.

Matthew