what would be some options for adding only values in this range that are not
blank to the array?

arr = .Range("B12:B" & lRow).Value
--


Gary

this is what i have right now:

For k = 12 To 33
If .Range("B" & k).Value > "" Then
l = l + 1
ReDim Preserve arr(1 To l)
arr(l) = .Range("B" & k).Value
End If
Next

--


Gary


"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:%(E-Mail Removed)...
> what would be some options for adding only values in this range that are not
> blank to the array?
>
> arr = .Range("B12:B" & lRow).Value
> --
>
>
> Gary
>
>
>

no need to reply, i did something different using 2 arrays.

--


Gary


"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:%(E-Mail Removed)...
> what would be some options for adding only values in this range that are not
> blank to the array?
>
> arr = .Range("B12:B" & lRow).Value
> --
>
>
> Gary
>
>
>