Update Cell Value Based On Another Cells Contents

Sub ReAssess()
‘This could be used in a survey to score the answers
‘Column A = Survey Question
‘Column B = Survey Answer
‘Column C = Survey Score

Select Case Range(“B2”).Value
Case “A”
Range(“C2”).Value = 5
Case “B”
Range(“C2”).Value = 4
Case “C”
Range(“C2”).Value = 3
Case “D”
Range(“C2”).Value = 2
Case “E”
Range(“C2”).Value = 1
End Select
End Sub