Hi Ian,

Perhaps you could do something like:

Sub Test()
Dim arrNames As Variant

arrNames = Range("A1:A20")

For i = LBound(arrNames) To UBound(arrNames)
Debug.Print arrNames(i)
Next i

End Sub


---
Regards,
Norman



"Ian B" wrote in message
...
I have a list of names stored in a worksheet and I want to use these to
define a set of variables.

I there anyway to do this

I tried this

Dim Sheets("names").Cells(1,1).Value As String

but with no luck

Ian B