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