Почему в этой строке происходит ошибка "Subscript out of range"?
Workbooks("Книга1.xlsx").Sheets(rg_src.Value)
Ошибка может быть по этим причинам:
1) нет открытого файла с именем "Книга1.xlsx";
2) нет листа с именем, которое записано в "rg_src.Value".
Спасибо.