vba 单击跳转并且自动筛选

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


n = Range("b65536").End(xlUp).Row
r = Target.Row
c = Target.Column


If r > 1 And r <= n And c = 3 Then
   Sheets("总览").Activate


   n2 = Sheets("总览").Range("a65536").End(xlUp).Row
   temp = Cells(r, 3)
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$M$65536").AutoFilter Field:=23, Criteria1:=temp   '按照单击单元格内容自动筛选。
    Cells(1, 1) = temp
       
End If


End Sub