You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell < "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=543444