Try this:-

**********************

Option Explicit

Option Base 1

Sub fillArray()

Dim arrayToFill(100) As Variant
Dim i As Long

For i = 1 To 100
arrayToFill(i) = Me.Range("A" & i)
Next

End Sub

******************

hth, TonyM


-----Original Message-----
hello,

I want to assign about 100 variables, i want to do this
in an array.
These varables are found in cells a1 to a100. Not all
cells are full.
Does anybody has some sample code?

Regards,
Niek


---
Message posted from http://www.ExcelForum.com/

.