My list begins in A1. In B1 enter =IF(MOD(ROW(),4)=0,A1," "). Copy down the
column.
Every fourth name shows in column B
Select the data in B; use Copy; open a new sheet or workbook; use Edit|Paste
Special ->Values. Now Sort the list to get rid to the blanks - any anyone
who votes Tory