Copy paste from multiple worksheets into one sheet

[jtodd]

Hi i have the following code in a workbook that works fine ,but when i copy the code into a new workbook it will not work .
It copies one sheet but does not loop through the other sheets ?
I have made sure that the new workbook has a sheet called Summmary1 , any ideas

Sub SummurizeSheets()
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    Sheets("Summary1").Activate
    
    For Each ws In Worksheets
        If ws.Name <> "Summary1" Then
            ws.Range("A1:l50").Copy
            Worksheets("Summary1").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
            'Set NextCell = Sheet2.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0
        End If
    Next ws
End Sub

 

[Kerryx]

Any chance your code needs line before end of code

Application.ScreenUpdating = True

 

[Kerryx]

is it Summmary1 or Summary1 could be simple as a typo

 

[jtodd]

Checked both and still only copies the one sheet

 

[Kerryx]

I ran your code in a test workbook and it worked fine, went through 5 sheets and copied info to the Worksheet called Summary1

 

[jtodd]

Yes i did the same , it was how the sheets were setup , ie no data in A ,
all sorted now , thanks for your help