Run time Error 438 on Sort

Hi,

I have a piece of VBA code that is part of a longer code, but when I run it on a colleagues machine I'm getting a runtime 438 error.

The code is

Please Login or Register  to view this content.

And specifically I'm getting the error on the line

Please Login or Register  to view this content.

Both machines are running office 365 and I can't find a resolution.

Any ideas??

Sorry should add that this code is just to sort some data by 3 columns, Column I ascending followed by B ascending and then D ascending.

This is so that i can get all like data in order, so I is order or quote (A for order b for quote), b sorts by salesman and D by customer. That way I can make a sequential ID number based on the order type, salesman and customer