Подскажите, как подставить в "Sheets" переменную "rg_src"?
В этой строке происходит ошибка:
Set sh_res = Workbooks("Книга1.xlsx").Sheets("rg_src")
Если переменную заключить в кавычки, то переменная становится просто текстом. То есть макрос ищет лист с именем "rg_src".
То есть вам надо убрать кавычки:
Set sh_res = Workbooks("Книга1.xlsx").Sheets(rg_src)
Спасибо.