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

Leave a Reply