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

What was the error message?

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Steph" wrote in message
om...
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