Filter data by double clicking on any cell in range A3:A11 on any worksheet in workbook

In the attached the code works for the item number located in Cell A1 on worksheet "801" when double clicked

I would like to filter the "Data" worksheet by double clicking on any item # in range "A3:A11" on any of the other worksheets "801,802,803". Original workbook that I will adapt code to has 45+ worksheets.
Item #s are unique.

Private Sub Workbook_sheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1")) Is Nothing Then
Else
    Sheets("Data").Select
    Selection.AutoFilter Field:=4, Criteria1:=Worksheets("801").Range("A1").Value
End If
End Sub

Thank you for your assistance