Autofilter criteria from cell and refresh at cell change

Hello,

I'd like the code below to be able to pick up the autofilter criteria from cell A1 and re run this code everytime the value in cell A1 changes.

Thanks in advance

Private Sub filter()

    Sheets("filter").Select
    
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A17:J42").AutoFilter Field:=6, Criteria1:="A1"
                
    End With
                
End Sub

Select allOpen in new window

test-filter.xlsm