I used this (see below) UDF successfully (can't believe it) but now I want to
do te opposite where 15 =A+, no idea how to write it!

Function Grades(Letter As String) As Integer
Select Case Letter
Case Is = "A+"
Grades = 15
Case Is = "A"
Grades = 14
Case Is = "A-"
Grades = 13
Case Is = "B+"
Grades = 12
Case Is = "B"
Grades = 11
Case Is = "B-"
Grades = 10
Case Is = "C+"
Grades = 9
Case Is = "C"
Grades = 8
Case Is = "C-"
Grades = 7
Case Is = "D+"
Grades = 6
Case Is = "D"
Grades = 5
Case Is = "D-"
Grades = 4
Case Is = "F+"
Grades = 3
Case Is = "F"
Grades = 2
Case Is = "F-"
Grades = 1
End Select
End Function