disabling autofilter mode after filter data based on cell value

[MKLAQ]

hello
I have this code but I would make autofilter mode = false after filter data I tried with this code but it doesn't so far
any idea to do that ,please ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
 If Range("B2") = "All" Then

  Range("A3:E3").AutoFilter
 Else
  Range("A3:E3").AutoFilter Field:=2, Criteria1:=Range("B1")
  'ActiveSheet.AutoFilterMode = False
 End If
End If

 

[MKLAQ]

any idea ?

 

[Fluff]

What you are trying to do makes no sense. Why filter the table & then immediately remove the filter?

 

[MKLAQ]

May be my question is not clear what I want remove arrow relating autofilter
should autofiltemode =false after filter data but I no know where put it this

 

[Fluff]

Autofilter mode does not remove the dropdowns it removes the entire filter.

 

[MKLAQ]

I would remove arrows in topic headers from a3:e3 after filter data based on dropdown

 

[Fluff]

In that case try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Address = "$B$1" Then
 If Range("B2") = "All" Then

  Range("A3:E3").AutoFilter
 Else
   With Range("A3:e3")
   For i = 1 To 5
      If i = 2 Then
         .AutoFilter i, Range("B2").Value, , , 0
      Else
         .AutoFilter i, , , , 0
      End If
   Next i
   End With
 End If
End If
End Sub

 

[MKLAQ]

the data has gone

 

[Fluff]

What do you mean it's gone?

 

[MKLAQ]

it hides the rows which contain data , it does not show any thing when select from dropdown