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("B3:D52").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="test"

RBS


"Hawkfan757" wrote in message
...
I have the following macro that is not working:

ActiveSheet.Unprotect Password:="test"
Range("B3:D52").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.