Hi,

I want an AutoFilter over a couple of columns. So I did this:

Sub af()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1) ' Instead 1 "Sheet1" also
ws.Range("A1:D1").AutoFilter field:=1, Criteria1:="",
VisibleDropDown:=False

End Sub

Even a macro record didn't work as expected. Excel Version is 2k3 SP3

THX 4 Help