Hi Howard,

Am Fri, 31 Jul 2015 22:50:02 -0700 (PDT) schrieb L. Howard:

With the array code I am trying to do a transpose the column to row within the row-29 to row-49 range.

Here is where I am now, but cannot get past the Re Dim...

I hope I understood your problem.

Sub Test_29_49_Array_XPose()
Dim FERow As Long, LRow As Long
Dim varData As Variant

With ActiveSheet
LRow = .Cells(Rows.Count, "E").End(xlUp).Row
varData = .Range("E1:E" & LRow)

FERow = WorksheetFunction.Max(29, .Cells(Rows.Count,
1).End(xlUp).Offset(1, 0).Row)

If FERow = 50 Then
MsgBox "Exceed Range"
Exit Sub
End If

Cells(FERow, 1).Resize(columnsize:=UBound(varData)) =
Application.Transpose(varData)
End With

End Sub


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