S
Steph
Any idea why this code wont work?
Set Dest = Worksheets("Sheet2").Range("A3")
Set rng = Worksheets("Sheet1").Range("A3" &
Worksheets("Sheet1").Range("C65536").End(xlUp).Row)
Dest.Consolidate Sources:=rng, Function:=xlSum _
, TopRow:=False, LeftColumn:=True, CreateLinks:=False
Set Dest = Worksheets("Sheet2").Range("A3")
Set rng = Worksheets("Sheet1").Range("A3" &
Worksheets("Sheet1").Range("C65536").End(xlUp).Row)
Dest.Consolidate Sources:=rng, Function:=xlSum _
, TopRow:=False, LeftColumn:=True, CreateLinks:=False