Hi again,

Am Tue, 17 Jun 2014 18:51:27 +0100 schrieb TimR1316:

Thanks, Claus! That definitely works. I failed to mention that the title
was hyperlinked. Sorry about that oversight. When I copy the title to
Sheet2, the hyperlink doesn't copy. Is there a way to modify this so
that they hyperlink will copy?

or try it with VBA:

Sub Transpose()
Dim LRow As Long
Dim i As Long, j As Long

j = 1
With Sheets("Sheet1")
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LRow Step 3
.Cells(i, 1).Copy Sheets("Sheet2").Cells(j, 1)
.Cells(i + 1, 1).Copy Sheets("Sheet2").Cells(j, 2)
j = j + 1
Next
End With
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional