Advaced filter error 1004
 

Hey!
I have made a macro with advanced filter. When I share this workbook i get a
message:
"advanced filter in range mode failed: error 1004" (something like that).
The code is:
Sub Idag()
'
Dim område As Range
Dim kriterie As Range
Dim dato As Range

Set område = Range("Database")
Set kriterie = Range("kriterie")
Set dato = Range("A7")

Application.ScreenUpdating = False
Application.Goto Reference:=("Database")
område.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
kriterie, Unique:=False
dato.Select

End Sub

Can anybody help!
TD