Macro to filter based on a master sheet

Heres something to start with:

Sub ASD()

Dim Worksheet As Worksheet
Dim sName As String

sName = Sheets(1).AutoFilter.Filters(1).Criteria1
sName = Right(sName, Len(sName) - 1)

For Each Worksheet In ThisWorkbook.Worksheets
    If Not Worksheet Is ActiveSheet Then
        If Worksheet.FilterMode = True Then Worksheet.ShowAllData
        Worksheet.Range("A1").AutoFilter Field:=1, Criteria1:=sName
    End If
Next Worksheet

End Sub

This is a mere macro - no event procedure. A quick google tells me that you have to get creative when it comes to when to trigger this code.
There is no event thats associated with a filter change. One way is to create a formula in one cell that will trigger the Worksheet_Calculate event every time you change the filter.
Perhaps someone can chip in here as I'm to lazy to do the rest : - )