попытайтесь это и см. если работами ..... если оно делает, то, ваша проблема будут updatelinks ......, то
Workbooks.Open («C:\CiceroTradingSystem _2010 \ datacollection \ Cicerocollect.xlsm»)
Workbooks.Open («C:\CiceroTradingSystem _2010 \ datacollection \ Cicerocollect2.xlsm»)