I have easy code, but unsure why VBA would not want to do what is required (transpose). Any help will be appreciated.
Code:
Code
Sub Tcourses()
Application.ScreenUpdating = False
Dim MyFile As String, MyPath As String, i As Integer
MyPath = GetActiveWB
MyFile = Dir(MyPath & "*.xls")
Do While Len(MyFile) > 0
If MyFile = ThisWorkbook.Name Then
Exit Sub
End If
i = i + 1
Workbooks.Open (MyPath & MyFile)
On Error Resume Next
Range("D8:D15").Select
Selection.Copy
ActiveWorkbook.Close savechanges:=False
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets("Summary").Activate
Range("AD6").Offset(i - 1, 0).Select
ActiveSheet.PasteSpecial Transpose:=True 'Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
Display More