Using custom sort with macros

So I'm trying to sort the asset classes in a portfolio using a macro:

this is where the code stops running. Can someone help point out what I am doing wrong? Thanks!

ActiveWorkbook.Worksheets("MSEXP1021092942").Sort.SortFields.Add Key := Range( _
        "C5:C27"), SortOn := xlSortOnValues, Order := xlAscending, CustomOrder := _
        "Cash,Money Market,US ETF Short-Term Bond,Short-Term Bond,Muni National Short,Intermediate-Term Bond,Intermediate Muni,Muni National Interm,Muni New Jersey Intermediate", DataOption := xlSortNor"& _
        "?

It would be useful to see the rest of the code for context. We'll also need to know what error is generated when it stops as that may help diagnose the problem.