What you do is initialise the array as a dynamic array with the Dim statement
as below. Then run your procedure to count the number of rows. Now use the
"ReDim" statement to set the array size and then fill the array as required.

Sub MySub()
Dim MyArray()

<Your function to count the rows

ReDim MyArray (1 To NumberofRows, 1 To 4)

<Your function to fill array

ComboBox1.List = MyArray
End Sub

If this helps please click "Yes"
<<<<<<<<<<

"jlclyde" wrote:

How do you do this if it is not a fixed number of rows? I never know
how many items are going to be in a column until the macro starts
countign them. For instance I have a range of items down A starting
from 52 and going to the end of the sheet. I want to list all item
Numbers which will be every 4th row and the rest of the columns are
offset from this number. Hwo woudl I set the Array if I do nto knwo
how far down it goes?

Thanks,
Jay