Dim MyRange(5)

Set MyRange(0) = worksheet("Sheet1").Range("a2:g2").Value
Set MyRange(1) = worksheet("Sheet2").Range("a2:g2").Value
Set MyRange(2) = worksheet("Sheet3").Range("a2:g2").Value
Set MyRange(3) = worksheet("Sheet4").Range("a2:g2").Value
Set MyRange(4) = worksheet("Sheet5").Range("a2:g2").Value




"ub" wrote:

Hi
I have an array in my vba code. Values from range from 5 different sheets
are saved in these arrays

the code is
Dim r1 as variant
Dim r2 as variant
Dim r3 as variant
Dim r4 as variant
Dim r5 as variant

r1 = worksheet("Sheet1").Range("a2:g2").Value
r2 = worksheet("Sheet2").Range("a2:g2").Value
r3 = worksheet("Sheet3").Range("a2:g2").Value
r4 = worksheet("Sheet4").Range("a2:g2").Value
r5 = worksheet("Sheet5").Range("a2:g2").Value

I want to consolidate these 5 arrays into 1 array .
Can someone advise me how can I do this in my VBA code