VBA in 2007 v 2003

[BRISBANEBOB]

Can anyone advise me why the line

ActiveWorkbook.Worksheets(CurrentWorksheet).Sort.SortFields.Clear

from the code below works fine in Exccel 2007 but falls over in 2003, and is there a workaround?

'Filter Relevant to Top...
    Range("A9:C" & LastTransRow).Select
    ActiveWorkbook.Worksheets(CurrentWorksheet).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(CurrentWorksheet).Sort.SortFields.Add Key:=Range("A8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets(CurrentWorksheet).Sort
      .SetRange Range("A9:C" & LastExtractRow)
      .Header = xlNo
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With

Thanks for any help