I have a really annoying problem whereby I can run a macro on one computer, but when running on a different computer I get the above error message.

Both computers have the same version of excel!

Below is the section of code that fails.

Dim WorkDay As String
            Dim LastRow As Integer
            
            WorkDay = ActiveSheet.Name



Dim SortData, PostCodeSort, AddressSort, NameSort, TimeSort, RouteSort, ProductSort As Range
                
            Range("A1").Select
            Selection.CurrentRegion.Select
            
           
            Set SortData = Selection
            
            Range("L2").Select
            Range(Selection, "L" & LastRow).Select
            Set PostCodeSort = Selection
            
            Range("N2").Select
            Range(Selection, "N" & LastRow).Select
            Set AddressSort = Selection
            
            Range("B2").Select
            Range(Selection, "B" & LastRow).Select
            Set RouteSort = Selection
            
            Range("I2").Select
            Range(Selection, "I" & LastRow).Select
            Set TimeSort = Selection
            
            Range("E2").Select
            Range(Selection, "E" & LastRow).Select
            Set ProductSort = Selection
            
            ActiveWorkbook.Worksheets(WorkDay).Sort.SortFields.Clear
it fails on the last line of that code. I have missed out some detail such as the LastRow code as I didn't feel it was relevant.

Please help!

Thanks