Any ideas?

S

Steph

Any ideas why this won't work??

Sub Consolidate()
Set Consrng = Sheets(Array("LMU", "Kit", "SMLC", "WLG", "SMLC Cab",
"Serv Cab", "Ntwk Kit", "TDAX", "EMS", "SCOUT", "Dir Coup")) &
"!R5C1:R500C133"

Forecast.Range("B5").Consolidate Sources:=Array(Consrng), _
Function:=xlSum, TopRow:=True, LeftColumn:=True,
CreateLinks:=False

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top