Transpose Record Set

[simoncpage]

Using the following to copy a record set from access to excel how can I transpose these?
--------------------------------------
For intColIndex = 0 To rs.Fields.Count - 1

TargetRange.Offset(intColIndex, 0).Value = rs.Fields(intColIndex).Name

Next

TargetRange.Offset(0, 1).CopyFromRecordset rs
-------------------------------

Any help would be great!

Simon