View Single Post
 
Old 03-20-2016, 06:52 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

Perhaps you could us double click, something along the lines of this
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
    If Target.Value <> "" Then
      Cancel = True
      With Sheet2
        .Select
        .UsedRange.AutoFilter Field:=6, Criteria1:=Target.Value
      End With
    End If
  End If
End Sub
Reply With Quote