Hi
I am trying to create a master budget sheet which gets automatically updated when data is inputted into individual project worksheets. I have found this code which is apparently meant to do it but I can't seem to adapt it to my workbook. I tried changing the ranges but it came up as an error.
Sub Summarize()
Dim ws As Worksheet
Dim lastRng As Range
Application.ScreenUpdating = False 'speed up code
ThisWorkbook.Sheets("Master List").Rows("2:65536").ClearContents 'clear
For Each ws In ThisWorkbook.Worksheets
Set lastRng = ThisWorkbook.Sheets("Master List").Range("b65536").End(xlUp).Offset(1, 0)
Select Case ws.Name
Case "Master List" 'exlude
'do nothing
Case Else
ws.Activate
'copy data from individual sheets
Range("A5", Range("X65536").End(xlUp)).Copy lastRng
End Select
Next
Application.CutCopyMode = False 'clear clipboard
Application.ScreenUpdating = True
Sheets("Master List").Activate
End Sub
I have attached my workbook. any help would be much appreciated
Bookmarks