Hi Garry,

Am Wed, 14 Aug 2013 18:46:14 +0200 schrieb Claus Busch:

Test1;Test2;Test3
and another time I used
=myList

my bad. I tested the hard coded validation two times
With a named range (=myList) it works:
Sub Test3()
Dim myArr As Variant
Dim myStr As String
Dim rngC As Range
Dim i As Integer

myStr = Replace(Range("A1").Validation.Formula1, "=", "")
ReDim myArr(Range(myStr).Cells.Count - 1)
For Each rngC In Range(myStr)
myArr(i) = rngC
i = i + 1
Next
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2