Beware that in the new versions of excell you have to use Cells.CountLarge instead of Cells.Count or you will get Runtime error 6: overflow


Note also that in Excel 2010 you will get an overflow error even using Cells.CountLarge if only the first cell of the data column is selected and the data column is empty. This can be trapped by changing lines 17-19 of the ListPermutations subroutine to:

If Rng.Cells.Count = 1 Then
Set Rng = Range(Rng, Rng.End(xlDown))
If WorksheetFunction.CountA(Rng) = 0 Then
GoTo DataError
End If
End If