PS....

I wrote:
rngs = Array("A1:A100", "B1:B100", "C1:C100", "D1:D100", "E1:E100",
"F1:F100")

It appears that this line got split during the submission process. It
should be written:


rngs = Array("A1:A100", "B1:B100", "C1:C100", "D1:D100", _
"E1:E100", "F1:F100")

I wrote:
Set xRng = Range(r)
[....]
Debug.Print Format(nCombin, "00") & _
": xRng = Range(""" & xRng.Address(False, False) & """)"

Of course, I could have written simply:

Debug.Print Format(nCombin, "00") & _
": xRng = Range(""" & r & """)"

I use xRng.Address(False,False) as a way to confirm that xRng got set to the
intended Range collection.