Excel 2010 :: Letter Grade Calculator

I created an Excel 2010 macro enabled workbook (.xlsm) which calculates the letter grades of test scores between 1 and 100.

To use the workbook:

1. Put the scores in one column of the open worksheet.

2. Select the first score with the mouse (i.e. make this the "active cell").

3.Click on the "Calculate Grades" button on the sheet.

Public Function LGrade(ByVal score As Variant) As String
'Returns the letter grade based on a test score.
On Error GoTo ErrHandler

Select Case score
Case Is > 100: LGrade = "A+"
Case 95 To 100: LGrade = "A"
Case 90 To 94: LGrade = "A-"
Case 87 To 89: LGrade = "B+"

[code].....