hopefully this'll work:

Dim myArray()
Erase myArray 'incase it's already full
myArray =
Application.Transpose(ThisWorkbook.Sheets("Ranges" ).Range("B3:B23"))

Rgds
J


On Mar 23, 2:55 pm, Robert wrote:
I have a range ("B3:B23") in worsheet "Ranges" and I need to loop thru this
range and copy the values into an array.

Many Thanks
--
Robert Hill