1) The data validation LIST source in B1 should be:
=IF(A1>10, Names)
2) Right-click the sheet tab and select VIEW CODE to add this macro into the sheet module:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell as Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For Each cell in Intersect(Target, Range("A:A"))
If Cell > 0 And Cell <= 10 Then
Application.EnableEvents = False
Cell.Offset(,1).Value = WorksheetFunction.Index(Range("Names"), Cell.Value, 0)
Application.EnableEvents = True
Next cell
End if
End Sub
Bookmarks