My sort routine produces errors after being used four times. The procedure has been in use for several years with no problems.
Public Sub SortPlayer4()
Range("A11:F154").Select
Range("F11").Activate
Selection.Sort Key1:=Range("F11"), Order1:=xlDescending,
Header:=xlGuess, _...