Filter and delete from 5 worksheets

[thedeadzeds]

Guys,


I have 5 worksheets all with tables of data. The worksheets and table names are as follows:


worksheet name = BA1 and the table name is tab1
worksheet name = BA2 and the table name is tab2
worksheet name = BA3 and the table name is tab3
worksheet name = BA4 and the table name is tab4
worksheet name = BA5 and the table name is tab5


Is there a way to filter by column D for all worksheets and delete all rows unless column 4 shows 'New Calls'. So filter all worksheets above based on column D and delete all data unless column D shows 'New Calls'. So essentially the only data showing in all 5 tables should be 'New Calls'.


Hope this makes sense
Thanks

 

[Joe4]

Try turning on the Macro Recorder, and record yourself manually setting it up for one sheet.
That should give you bulk of the code you need to actually do what you want for each page.
Then, you can wrap it in a loop that loops through each worksheet, like this:

Dim ws as Worksheet
Application.ScreenUpdating = False
For Each ws in Worksheets
    ws.Activate
[I]    'your code here[/I]
Next ws
Application.ScreenUpdating = True

If you need any help cleaning things up, post your code here, and let us know what needs fixing.