SORT with changing value in column

[miles44]

I would like to SORT a trio of columns with the column to sort by being C.
The value in the range would be determined by a changing value in cell E3.
B3 & C3 would be static while C# & D# would change.

The three statements in RED are what I need help with

'cell e3 contains value for columns C & D

Range("B3:D22").Select
ActiveWorkbook.Worksheets("Players").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Players").Sort.SortFields.Add2 Key:=Range("C3:C22" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Players").Sort
.SetRange Range("B2:D22")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

[Bernie Deitrick]

As long as "Players" is the activesheet

Range("B3:D22").Select ' Entire line can be deleted

Range("C3:C22" _
)

Can be just

Range("C3")

and

Range("B2:D22")

could become this, as long as headers are in row 2, and nothing else is below the last value of column D:

Range("B2:D" & Cells(Rows.Count,"D").End(xlUp).Row)

Or, maybe, if the headers are in row 1:

Range("B:D")

[miles44]

Actually, this is what worked for me:

Range("B3:D" & Cells(3, 5)).Select
ActiveWorkbook.Worksheets("Players").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Players").Sort.SortFields.Add2 Key:=Range("C3:C" & Cells(3, 5) _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Players").Sort
.SetRange Range("B2:D" & Cells(3, 5))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Thanks for your help

[Bernie Deitrick]

So you have a formula or other entry in cell E3 that returns the last row of column D.....