Run time error '438' after recording macros in 07 excel and attempting to run in 03

Hi there,

I recorded a handful of simple sorting macros in Excel 07 but when I try to run them in 03 they return "Run time error '438': object doesn't support this property or method". When I hit debug the bolded line is highlighted:

Sub CCMMfinal()
'
' CCMMfinal Macro
'

'
Range("A2:H1701").Select
ActiveWorkbook.Worksheets("Credit Card").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Credit Card").Sort.SortFields.Add Key:=Range( _
"A3:A626"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Credit Card").Sort.SortFields.Add Key:=Range( _
"B3:B626"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Credit Card").Sort
.SetRange Range("A2:H626")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

What am I to do? Thanks!