Hello,

I´m trying to with autofilter, everything i working fine but I want to sort
after a specified cell, in this case D5. Do anyone know how to do this?



My code is:

Sub Januari()
'
' Sortera januari i betaltlistan Makro
'
'
ActiveSheet.Unprotect

ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter
ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=5,
Criteria1 _
:="$D5"

ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=32,
Criteria1 _
:="<"

End Sub


Keep my fingers krossed.

BR
Mia