Put this line above

If x = 0 Then Exit Sub ' Exit sub if no data
Workbooks.Add

"Chris H" wrote:

I have rows of information (mailing list). I would like to copy every 5th
row only to a new workbook using transpose without having to highlight every
5th entry. Is this possible?