auto filter

[kac1125]

Hello, I have an auto filter where if I double click on a value in column A worksheet on it filters coulmn A on worksheet 2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
With Sheets("Sheet2")
.Range("A1").AutoFilter 1, Target.Value
Application.Goto .Range("A1"), True
End With
End If
End Sub

I want it to also apply the same filter to worksheet 3 column A at the same time. Please let me know the best way to accomplish this.

thank you in advance!

 

[DanteAmor]

Try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    With Sheets("Sheet2")
      .Range("A1").AutoFilter 1, Target.Value
      Application.Goto .Range("A1"), True
    End With
    With Sheets("Sheet3")
      .Range("A1").AutoFilter 1, Target.Value
    End With
  End If
End Sub

 

[kac1125]

Try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    With Sheets("Sheet2")
      .Range("A1").AutoFilter 1, Target.Value
      Application.Goto .Range("A1"), True
    End With
    With Sheets("Sheet3")
      .Range("A1").AutoFilter 1, Target.Value
    End With
  End If
End Sub

Great!!! Worked perfect! appreciate it!!