VBA for Autofilter linked with combo box

Hi

i have tried to link the two tables with a combo box. But vba is not working. Please help me.


Sub Macro8()

Sheets("BankBook").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, "h1")
Sheets("CashBook").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, "h1")
End Sub