Custom Sort not working

I'm trying to sort a range of data by a custom list the code is below. i first create a customlist then sort a range based on that list

Please Login or Register  to view this content.

i took this code from another post and changed it up to fit what i need its tell me Run-time error '438': Object doesn't support this property or method. when stepping through this line

Please Login or Register  to view this content.

i dont really understand how that line works so i dont know whats wrong with it.

thank you

i didnt think that was right

your code runs but i think my custom list isnt right i have words and numbers in a specific order, when i look at the custom list the numbers r not showing up

example of part of the custom list

Roadway
203
204
205
207
Pavement
202
541

do you know why its not storing the customlist right?

okay i attached an example workbook with just a small amount of data and next to it I show how i want it to sort

changed the numbers to text and the customlist is correct but when i run the marco it puts the words under the numbers

its for projects im pulling in data from subsummary sheets to a general summary sheet the ID column are item numbers and they go under certain catagories. there are thousands of item numbers but the first three numbers can tell which catagory it should go under so all the numbers under roadway go with the roadway catagory. there are more catagories then roadway and pavement im just simplifing for the code.

it works when i manually do a sort and click on custom sort it comes up with a box saying something about numbers being represented at text and u can click what you want to do.
im assuming that is what is messing up the macro.
if anyone knows how to fix that

I quick fix would to just add a letter to all the numbers

thanks for the help ill mark this as solved

thanks shg that code worked

when i add that code everytime i try to save it excel crashes

i opened the VBA and double click thisworkbook and put the code in there

should it be going somewhere else

i tried that and the same thing happened. i have other macros in that thisworkbook section and that saves and works fine

i just tried adding the macro and saving it and it saves. something is going on after I run that Sort macro that causes it to crash when saving. I assume its got something to do with the customlist

you know anything about this

that worked thank you so much