How do I alter the below so that if I call the macro in a completely different sheet it will run fin on sheet Saturday?
Sub Macro2()

    Range("T6:Y500").Select
    ActiveWorkbook.Worksheets("Saturday").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Saturday").Sort.SortFields.Add Key:=Range( _
        "U6:U327"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Saturday").Sort
        .SetRange Range("T6:V327")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub