Lets assume the list that provides the data validation is called 'myList' and the cell to be validated is called 'dvCell'
This should get you going:
for each c in [myList]
msgbox "The next value to be entered will be: " & c.value
[dvCell] = c.value
next c
Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244