A start hopefully..


Sub a()
Dim ArrCounter1 As Long
Dim ArrCounter2 As Long
Dim ArrCounter3 As Long
Dim Arr1 As Variant
Dim Arr2 As Variant
Dim Arr3 As Variant
Dim RowCounter As Long
Arr1 = Array(1, 2)
Arr2 = Array("A", "B")
Arr3 = Array("X", "Y", "Z")
For ArrCounter1 = 0 To UBound(Arr1)
For ArrCounter2 = 0 To UBound(Arr2)
For ArrCounter3 = 0 To UBound(Arr3)
RowCounter = RowCounter + 1
Cells(RowCounter, 1).Value = _
Arr1(ArrCounter1) & Arr2(ArrCounter2) & Arr3(ArrCounter3)
Next
Next
Next
End Sub


--
Jim Rech
Excel MVP