Its hard to say but you've most likely got a typo in the line
Workbooks("CC Summary Report").Worksheets("Summary").Range("e3") = lastupdated + 1
Are the workbook and worksheet spelt absolutely correctly? Is the workbook in question open in the same instance of Excel?
It might help if you indicate which line the code debugs out on if this does not solve it.