Reset the table then look for word

[kalua1231]

How can i get it to reset the Table were it does the sort the words i have, by selecting all and then search for the word. Thank you

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim dccolumn As Integer
Dim dcvalue As String

dccolumn = ActiveCell.Column
dcvalue = ActiveCell.Value

If Application.Intersect(ActiveCell, [headers]) Is Nothing Then

        If ActiveCell.Value <> "" Then
      
         Me.ListObjects(1).Range.AutoFilter Field:=dccolumn + 2, Criteria1:=dcvalue

        End If
  
    End If
  
End Sub

 

[Hui]

This will clear the current Filter

  ActiveSheet.ShowAllData

This will filter for the selected text in Field 3

ActiveSheet.ListObjects("Table134").Range.AutoFilter Field:=3, Criteria1:=  Selection.Text

 

[kalua1231]

You guys rockkkkkkkkkkk!!! thanks that it's exactly what i was looking for thanks a mil Mr. Hui and Mr. Narayank and David