This is a bit neater and the message box doesn't serve any purpose:
Sub TransposeRange()
Dim arr
Dim lCR As Long
Dim lCC As Long
Dim UB1 As Long
Dim UB2 As Long
If Selection.Cells.Count = 1 Then
Exit Sub
End If
lCR = Selection.Cells(1).Row
lCC = Selection.Cells(1).Column
arr = Selection
UB1 = UBound(arr)
UB2 = UBound(arr, 2)
Selection.ClearContents
arr = WorksheetFunction.Transpose(arr)
With Range(Selection.Cells(1), _
Cells(lCR + UB2 - 1, lCC + UB1 - 1))
.Value = arr
.Select
End With
End Sub
RBS
"unknowndevice"
wrote in message
news:unknowndevice.1ue3me_1125090326.6003@excelfor um-nospam.com...
Dnereb & RB Smissaert:
Dnereb: I dont know how to code. I get an error at this line:
Cells(TargetRow, TargetColumn) = Cells(SourceRow, SourceColumn).Text
What am I supposed to put in any of these fields?
RB Smissaert:
Run time error '9' subscript out of range
Any ideas?
--
unknowndevice
------------------------------------------------------------------------
unknowndevice's Profile:
http://www.excelforum.com/member.php...o&userid=26646
View this thread: http://www.excelforum.com/showthread...hreadid=399497