I assumed that you had a list which was a Range of cell on the same worksheet

With Range("A9")
ValRange = Mid(.Validation.Formula1, 2)
Set DataRange = Range(ValRange)
For Each itm In DataRange
.Value = itm
'enter you code here
Next itm
end with

"LuisE" wrote:

I hava a validation list in A9 that drives some calculations which outcome
need to be put in a different sheet.

How can I loop thru every single element of the validation list and select
it so it shows in A9?
Thanks in advance