ExcelBanter - Data / Consolidate

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Data / Consolidate (https://www.excelbanter.com/excel-programming/355991-data-consolidate.html)

Steph[_6_]

Data / Consolidate

Any idea why this code wont work?

Set Dest = Worksheets("Sheet2").Range("A3")
Set rng = Worksheets("Sheet1").Range("A3:D" &
Worksheets("Sheet1").Range("C65536").End(xlUp).Row )
Dest.Consolidate Sources:=rng, Function:=xlSum _
, TopRow:=False, LeftColumn:=True, CreateLinks:=False

All times are GMT +1. The time now is 08:38 AM.