Sort not working

[colinharwood]

Hi
I have the following code in a macro, which I recorded, in a worksheet which works fine on my PC. I have now given the workbook to a friend, and he gets Run-time error'438': Object doesn't support this property or method at the lines in red. Could anyone explain why please.
Thanks

 'sort alphabeticaly
      Range("R10:T130").Select
    ActiveWorkbook.Worksheets("PDF Membership Card").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("PDF Membership Card").Sort.SortFields.Add2 Key:= _
        Range("S10:S130"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("PDF Membership Card").Sort
        .SetRange Range("R10:T130")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Fluff]

I suspect your friend is running an older version of xl. Change the Add2 to Add

 

[colinharwood]

Thanks Fluff, I'll give it a go & see what happens

 

[Fluff]

Ok

 

[colinharwood]

All works as expected
Thanks again

 

[Fluff]

You're welcome & thanks for the feedback.

 

[colinharwood]

When using this code, the default printer changes to "Microsoft print to PDF". Is there a way to get the previous default printer to use as a variable to reset the default printer after printing to Microsoft print to PDF.
Thanks

 

[Fluff]

Yes it is possible to do that, but as it's a totally different question, it needs a new thread. Thanks