Sub CatData()

NewRow = 1
LastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To LastRow
For j = 1 To LastRow
For k = 1 To LastRow
Range("D" & NewRow) = Range("A" & i) & _
Range("B" & j) & Range("C" & k)

NewRow = NewRow + 1
Next k
Next j
Next i



End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=161009

Microsoft Office Help