Mia, you dont need to specify the criteria for All. Try and feedback

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11
End If

If this post helps click Yes
---------------
Jacob Skaria


"Mia" wrote:

Hi I using filtering in VBA programming and I have a problem when I want to
show all in a column. Do any one know the code and what I should write? I
have tryed with folliwing but it dosent work. All filtering works but not to
show all (alla means all).

Private Sub Worksheet_Change(ByVal Target As Range)
'
ActiveSheet.Unprotect

Dim Fakturerad As String
Fakturerad = ActiveSheet.Range("C11")

ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter


ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:=Fakturerad

If c11 = "Alla" Then
ActiveSheet.ListObjects("Tabell102713").Range.Auto Filter Field:=11,
Criteria1 _
:="<"
End If
End Sub