Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Address = "$B$7" Then
Set cell =
ActiveWorkbook.Names.Item("MyList").RefersToRange. Range("A1")
Target.Value = cell.Value
End If
End Sub

for this example, you will need to name your list range
if you don't know how to do this let us know,
this example has the data validation in cell B7,
go to data validation, list and in the list box enter this =MyList
right click on the sheet tab and view codes
the box that says (General) hit the arrow and select worksheet
copy and paste the above code under the word option explicit
Dave