Drop-down List: Abbreviated in cell

[coach_veto]

Let's say I have a list of countries in my drop down list. Is it possible to spell them all out in the list but when one is selected, an abbreviated version appears in the cell?

For example, if "United Kingdom" is in my list, when I select "United Kingdom", I want "UK" to appear in the active cell. If there code I can reference to make this possible? (New to VBA & Excel in general)

Thanks!

 

[BobUmlas]

Say your list is in J:K (J1 has United Kingdom, K1 has UK, etc.)
Name the data validation cell DVRange (or something)
Right-click the sheet tab, select View Code, paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [dvrange].Address Then
Application.EnableEvents = False
[dvrange].Value = Application.VLookup([dvrange].Value, Range("J1:K100"), 2, False)
Application.EnableEvents = True
End If
End Sub