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"& _
        "?