hi Aussiebear

with your code I get the error 'property or method not supported by the object' on the line 52 where there is:

For Each cell In col.Cells.Rows.Reverse

thanks anyway for the support