'create the list of elements
While Not rs.EOF
mylist = mylist & rs.Fields(0) & "[COLOR=red];[/COLOR]"
rs.MoveNext
Wend
mylist = Left(mylist, Len(mylist) - 1)
[COLOR=red]mylist=replace(mylist,","," ")[/COLOR]
[COLOR=red] mylist=replace(mylist";",",")
[/COLOR] target.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=mylist
...
Wend