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

Hi pacer31

The SortFields property was only added in Excel 2007. Use the sort method directly using Key1 and Key2.

Thanks for the response!
Sorry I have little experience in writing vba code and a simple find and replace didn't work. Is there a tool that rewrites it compatible with 2003? Or could you help me make the changes?

Hi

Try:

thank you thank you!
it worked perfect, and was able to make the rest of my macro buttons from your example

edit: Mods, the edit option is gone from the original post but this is solved! thanks

pgc (or anyone), I'm getting an error due to a similar situation, and am not familiar enough with vba coding to restucture it to meet my needs. The code below was created in excel 2007 and is not compatibile with excel 2003:

Sub LastName()
'
' LastName Macro
'
'
Range("A1").Select
ActiveWorkbook.Worksheets("Phone List").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Phone List").Sort.SortFields.Add Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Phone List").Sort
.SetRange Range("A2:J500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Help please???

Hi
Welcome to the board

This should be close to what you need.

I'm just leaving but I'll check this thread later.


Remark: I noticed in your code that the data is in the worksheet "Phone List", but your key to sorting (Range("A1")) is in the activesheet?

Thanks-I took your suggestion below:
Sub LastName()

ActiveWorkbook.Worksheets("Phone List").Range("A2:J500").Sort _
key1:=Range("A1"), order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, _
Header:=xlNo, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin

End Sub

and was coming up with a 1004 range error, so I played with the sort method coding (SortMethod:=xl) and it seems to be working for excel 2003. Thanks for the assistance