Автор: Сергей Ким. Ранее Workbooks.Open работал. После долгого перерыва вернулся ... строке "Set BookSource = Workbooks.Open(sFileSourcePath & sFileSourceName)& ... sFileSourceName ""             Set BookSource = Workbooks.Open(sFileSourcePath & sFileSourceName)             Set ListSource = BookSource ...