Why don't you use PasteSpecial Transpose when you paste?
Or coding something like this.


Code:
--------------------

Sub Test()
Dim Target As Range
On Error Resume Next
Set Target = Application.InputBox("Select Data", Type:=8)
If Target Is Nothing Then Exit Sub
Target.Copy
Selection.PasteSpecial Transpose:=True
Application.CutCopyMode = False
End Sub

--------------------



---
Message posted from http://www.ExcelForum.com/