Advaced filter error 1004

T

Tove

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top