I've used a small macro to do this. See my attachement. that will clear things up. Change D1 and/orE1. Vallist is a 'named' range.
Good luck
Sub ValList()
Dim ValListStr As String
Dim Ccell As Range
For Each Ccell In Range("vallist").Resize(, 1) 'only left
If Ccell = Range("D1") Then
ValListStr = ValListStr & "," & Ccell.Offset(0, 1)
End If
Next
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=ValListStr
.IgnoreBlank = True
.InCellDropdown = True
End With
This is triggerd by
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$1" Then
Call ValList
End If
End Sub
Bookmarks