ytayta555 wrote:
Ow , my God , Dave , you're incredible !
[etc.]
You certainly made my day! You're welcome.

Only one thing I'd like to know, and this thing only if it is
possible, how must look the code, after the last row
is filled (65536, I use Excel 2003 ) , to to continue
the combination in the next sheet, ..
Replace
zRow = zRow + 1
with
zRow = zRow + 1
If zRow 65536 Then
zRow = 1
ActiveWorkbook.Sheets.Add
End If

I guess to view progress, you need to replace
DoEvents ' to view progress
with
If zRow = 1 Then ActiveSheet.Columns.AutoFit
Cells(zRow, 1).Select
DoEvents ' to view progress

Best to you, Dave D-C