Drop Down List that pulls different text

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

I've attached the file I'm working on as it has no sensitive information. It's the Performance Review Tab and I have the code I used in there. Now I'm not getting an error but it's not working either. Thank you for the assistance.

Maybe it's just on my computer it's not working. Perhaps I don't have anything enabled. But thank you! I'm glad to know it works! I'm new at this so I thought it wasn't working.

to avoid error messages

Please Login or Register  to view this content.

Hi,
I have a similar problem.. I am using the following code which is working for one of my drop-down lists, and pulls in column 2 of the named range.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 26 Then
selectedNum = Application.VLookup(selectedNa, Sheet2.Range("Headquarter"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub

However, my issue is that I need to do the same function for several other columns and named ranges, and I can't figure out how to nest or add additional
functions,because each time I do, I get an error, and it locks up. All of my named ranges are in Sheet2, and an example of my additional named ranges and
columns are Column 28 with named range "CurrencyCode", and column 30 with named range "survey", and column 33 with named range "Industry". There are several
more, but this is an example. Can anyone help me with the proper way to have this code for different columns in the same sheet? PLEASE HELP!