ActiveSheet.ListObjects("Table_SalesLineItems11").Range. _
AutoFilter Field:=1, Criteria1:=2, Operator:=xlFilterDynamic
Or if cell A2 on the activesheet has your value of 2:
ActiveSheet.ListObjects("Table_SalesLineItems11").Range. _
AutoFilter Field:=1, Criteria1:=Range("A2").Value2, Operator:=xlFilterDynamic
You can also pass the value in a parameter:
Sub Test_LObjects
LObjects Range("A2").Value2
End Sub
Sub LObjects(vFilter as Integer)
ActiveSheet.ListObjects("Table_SalesLineItems11").Range. _
AutoFilter Field:=1, Criteria1:=vFilter, Operator:=xlFilterDynamic
End Sub
Bookmarks