Macro Sort Problem

[Guest]

I have the following macro that is not working:

ActiveSheet.Unprotect Password:="test"
Range("B352").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
ActiveSheet.Protect Password:="test"

My problem is that this macro works perfectly fine for me, however, when I
e-mail it to one of our subsidiary companies to use they get a run time error
and it asks them to debug. When they debug, it highlights the line beginning
with: Selection.Sort Key1:=Range("B3"). Any help on fixing this issue would
be greatly appreciated as I am lost. Thanks.

 

[RB Smissaert]

If I remember well, some older versions of Excel can't do this bit:
DataOption1:=xlSortNormal
Just leave it off, so you will get:

ActiveSheet.Unprotect Password:="test"
Range("B352").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="test"

RBS