Reapply Filter to Multiple Worksheets

[Macgyver01]

I have an Excel file with multiple worksheets that each have an autofilter applied to the same set of data. The filtered cells are pulling from data on another worksheet that I need to update regularly and have the worksheets with filters recalculate or reapply accordingly. Right now the quickest way I have found to update all these filters is to either use the "reapply" button on the filter menu, or the shortcut of "Ctrl, Alt, L" after individually selecting each worksheet. CAN SOMEONE PLEASE HELP ME CREATE A SHORTCUT TO REAPPLY THE FILTER TO ALL WORKSHEETS AT THE SAME TIME?? Thanks in advance!!!

 

[pboltonchina]

Hi HawaiinShirts,
I found this code posted by a MrExcel Moderator which may be useful to you

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Set the range that's going to trigger the code
Set rng = Range("A1")
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
Application.Run "RefreshMyFilters"
End Sub

You are only specifying Sheet1 in your code which may not be the first sheet in the book, so either specify the sheet name in your code or look in the VBA module and see what sheet number it actually is and adjust your code to suit.
Regards
Paul