Summerized total overview sheet from multible sheets

Hi Niclas,

I came back to you again!

With regards to the username who made the last modification, you can depend on the username that is stored in the Excel version of the user.

You can get access to this name through the code as follow:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveSheet.Range("F4") = Now()
    ActiveSheet.Range("F5") = Excel.Application.UserName
End Sub

This is the same code as the previous post, but with a new line to retrieve the username.

In this code, I've used the ActiveSheet property to make the code dynamic and apply it only to the active sheet since you have now several sheets in the workbook.

You can use this code to skip the Summerized overview version worksheet from this if you don't want to insert that info to it:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Summary Is ActiveSheet Then
        'Do nothing!
    Else
        ActiveSheet.Range("F4") = Now()
        ActiveSheet.Range("F5") = Excel.Application.UserName
    End If
End Sub

With regards to how to summarize the worksheets, please tell us how you would like to summarize it?

What data do you want to summarize?
How would you like to have a summary form?

In general, you can use the PivotTable or the Consolidation.

Please visit these links to learn more about that:

Consolidate multiple worksheets into one PivotTable

Consolidate data in multiple worksheets