Add Custom Sort List to VBA code

Hi All

I have a Macro that I have recorded that autosorts several columns for me. This works fine as I have 5 columns that need to be sorted in a particular way.

The problem is that I have a custom list which I stored using the: Tools>Options>Custom List tab. Now this works fine on my pc as I have the custom list stored on my PC.however the problem is when someone else uses it on their PC it may no longer work as they won't have my custom list stored on their PCs.

Is there a way to store the custom list in a Macro and then use that list to sort to the criteria needed. For example "One, Two, Three, Four" will not store in alphabetically, so hope would I be able to sort so that they would appear in a chronological manner?

Below is the code for the Macro I recorded. As you can see one of the lines says "OrderCustom:=6"; this I am assuming is reading from the list I created.

Can anyone amend my code so that it takes the list order into account?

Thanks in advance.

Please Login or Register  to view this content.

You could add the custom sort order from a know range, use it to sort and then delete it.

Please Login or Register  to view this content.

Thanks Andy that has been a great help.

I modified it slightly so that I don't need to keep referring to a list in a sheet. This is what I changed:

Please Login or Register  to view this content.

Thanks for the help this was fantastic in being able to assist and give me a starting point.