Trying to summarise data on different sheets

Hi everyone,

I'm trying to glean some data from different sheets in the workbook, then output the summary onto a sheet named "Summary". So far, I have written the following VBA code but it doesn't run! I'm not sure what I'm doing wrong so I thought I'd ask on here if anyone who is more knowledgable than me could point me in the right direction please!

Please Login or Register  to view this content.

Originally Posted by tinyTrexTony

could point me in the right direction

Your VBA procedure revamped :

PHP Code: 

Sub Demo1()
  Const S = "Summary"
    Dim R&, N&
        R = 1
        Application.ScreenUpdating = False
    For N = 1 To Worksheets.Count
        With Worksheets(N).Rows("4:258").Columns
            If .Parent.Name <> S Then
                R = R + 1
                Sheets(S).Rows(R).Range("A1:F1").Value2 = Array(.Parent.Name, .Cells(5)(0).Value, Application.Sum(.Item(5)), _
                                          Application.Sum(.Item(11)), Application.Sum(.Item(17)), Application.Sum(.Item(23)))
            End If
        End With
    Next
        Application.ScreenUpdating = True
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

This is really elegant, thank you!