It's pretty uncouth, but a variation of
Dim ctr, ctr1, ctr2, ctr3, ctr4 As Integer
ctr = 1
For ctr1 = 1 To 4
For ctr2 = 5 To 7
For ctr3 = 10 To 13
For ctr4 = 20 To 30
Range("AA" & ctr).Value = " 1 = " & ctr1 & " 2 = " & ctr2 & " 3 = " & ctr3 & " 4 = " & ctr4
ctr = ctr + 1
Next
Next
Next
Next
should leave a trail in column AA for you, up to 65536 items before an error
Originally Posted by grandfilth
Bookmarks