Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [C2:C65536,E2:E65536]) Is Nothing Then
Sheets("STOCK").Select
ActiveSheet.Range("A:D").AutoFilter Field:=4, Criteria1:=Target
End If
End Sub