I'm trying to have a drop down list where I select the word from the list and it populates the definition of the work in cell. So I would use the drop down to select Team Work and in the cell it would say, "works well with others, etc"


I'm using the following code and getting an error.

Cells 90,91,92 are the cells I want to use the drop box in. Does anyone have an idea who I can make this happen? Thank you!

:

Private Sub Worksheet_Change(ByVal Target As Range)
selectedNa = Target.Value

If Target.Column = 3 Then
If Target.Row = 90 Or Target.Row = 91 Or Target.Row = 92 Then
selectedNa = Application.VLookUp(selectedNa, Worksheets("KEY").Range("behavior"), 2, False)
If Not IsError(selectedNa) Then
Target.Value = selectedNa
End If
End If
End If
End Sub