Hi All,
Please could you assist me with the following code.
Function RankOverallTotal()
Set Ranklist = Range("T3:T50")
For Each Rcell In Ranklist
Range(Rcell.Address).Offset(0, 1).Value = WorksheetFunction.Rank(Rcell.Value, Ranklist, 1) ' change 1 to 0 for desceending rank
Next Rcell...