VBA runtime error when sorting Listobject

[Legacy 146544]

Hi all,

I am troubleshooting badly with the following code and I can't figure out why?

Blad21.Activate
Blad21.ListObjects("Verkoopcijfers").Range.Select

ActiveSheet.ShowAllData

Selection.AutoFilter Field:=1, Criteria1:="SWOT"
Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess

The last line gives run-time error 1004; problem with the sort key. I am using excel 2003. The code is in a private sub on a different worksheet than where the List is at,

thx in advance guys!