VBA sort with custom sort help

[debmullin]

Hello
I need help with code for a file to sort by 3 criteria, one custom. It is a schedule of classes. First sort is by room (column Y), second sort is Day(s) of classes and needs to be custom. Custom data is: MW, M, W, TR, T, R, F. This is column T. The 3rd criteria is start time of class. Column U and properties are time 1:30 pm. Row A is header column. Sort should be ascending for 1st and 3rd sort. @nd sort sb as in order it appears on my list. I am using range for my code. First sort code looks like this:

Worksheets("Area").Sort.SortFields.Clear
Sheets("area").Activate
Range("A1:AD700").Sort Key1:=Range("Y1"), Order1:=xlAscending, Header:=xlYes

I am a beginner so go gentle. I tried inserting key 2 as customorder and bombed out:
Key2:=Range("T1"), OrderCustom:=x

Anyone have a solution?

thanks

 

[Fluff]

How about

Sub debmullin()
   With Sheets("Area").Sort
      .SortFields.Clear
      .SortFields.Add Range("Y1"), , xlAscending
      .SortFields.Add Range("T1"), , , "MW, M, W, TR, T, R, F"
      .SortFields.Add Range("U1"), , xlAscending
      .SetRange Range("A1:AD700")
      .Header = xlYes
      .Apply
   End With
End Sub

 

[debmullin]

Thank you thank you thank you. Worked like a charm.

 

[Fluff]

You're welcome & thanks for the feedback.