Sort Based On List

sorry for restarting this thread but i started one similar on saturday and the person I was talking to has not yet responded

I want to know if it is possible to adjust this code line:

Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"

from the macro below to instead get the case names from a list on a worksheet... the reason for this is that the names of the worksheets I want sorted will change periodically.

Sub SortDaysoftheWeek()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
With ws
.Activate
.Range("A6:G256").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Select
Next ws
End Sub