I don't recall anything in your posts that specifies how many
iterations; the following loads the contents of d4:e34, g4:h34, j4:k34,
then m4:n34

Sub testab2001()
Dim arr(), rng As Range, i As Long
Set rng = Range("d4:e34")
For i = 1 To 4
arr = rng.Offset(0, 3 * (i - 1)).Value
'do something
Next
End Sub

Alan Beban

Erche DP wrote:

no column f in my description...
so on means for every iteration...
i think the pattern already shown..
first iteration : D4-E34 (means two columns 30 rows)
second iteration: G4-H34 (means the second two cols 30 rows)
third... J4-K34...

anyway, back to the problem..
how to specify the range.. ? should be add-able... ???????


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!