You want a dynamic array, so
You have to do it in two steps

Dim DataArray() as Double
Dim iFinalCount as Long

iFinalcount = 200
Redim DataArray( 1 to iFinalCount)

--
Regards,
Tom Ogilvy

"Jeff Harbin" wrote in message
...
I've got an range of cells of varying size made up of predominately
doubles
with a few strings sprinkled amongst the doubles. I need to sort through
the
array, determine the number of doubles in the array, and then populate an
array with the doubles.

I thought I could loop through the cells count the number of doubles,
store
the number of doubles as a variable (iFinalCount), and then Dim an Array
using the iFinalCount variable like so...

Dim DataArray(1 to iFinalCount) as Double

When I try to run the code I get the following error:

Compile Error
Constant Expression required

If I hit Debug it takes me to the iFinalCount in the Array dimensioning
statement.

Btw...iFinalCount is defined as an integer

Thanks,

Jeff