Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Nexta = Target.Rowaa = Cells(a, 6).Valuebb = Cells(a, 9).ValueSheets("2").ShowAllDataSheets("2").Range("$A$1:$H$5208").AutoFilter Field:=1, Criteria1:=aaSheets("3").ShowAllDataSheets("3").Range("$A$1:$K$10000").AutoFilter Field:=1, Criteria1:=bbEnd Sub