Dim a(3) As Variant a(0) = Array(1, 2, 3, 4) a(1) = Array(5, 6, 7, 8) a(2) = Array(9, 10, 11, 12) a(3) = Array(13, 14, 15, 16) For i = 0 To 3 For j = 0 To 3 Debug.Print a(i)(j); Next j Next i