Добрый день!
Подскажите по вопросу передачи значений переменных из одной подпрограммы в другую.

Открываю Excel книгу(думаю почти не важно, что открывать) и присваиваю переменной FN_PRG имя открытой книги оператором FN_PRG = Application.ActiveWorkbook.Name
Отладчик показывает, что имя присвоено и все ОК.

Далее пытаюсь использовать переменную FN_PRG в другой подпрограмме, но переменная уже видится как пустая строка" " - Empty
Пробовал разные варианты - определял переменную в основном модуле или в процедуре открытия...
Результат везде отрицательный.
Подпрограммы определены как Public и по идее видимость переменной обеспечена...

Подскажите в чем может быть дело?
Как передавать значения переменных из подпрограммы в другие подпрограммы?
Спасибо!

Public Sub WorkBook_Open()
Dim FN_PRG As String
FN_PRG = Application.ActiveWorkbook.Name
Debug.Print "ИМЯ КНИГИ при открытии- "; FN_PRG
UserForm1.Show
End Sub

Public Sub ConnectExcel()
Debug.Print "FN_PRG в подпрограмме Connect- "; FN_PRG
' Здесь переменная FN_PRG уже пустая строка
' И соответственно использовать ее уже по назначению невозможно
End Sub

https://www.sql.ru/forum/1310410/vopros-po-peredache-znacheniy-peremennyh-iz-odnoy-podprogrammy-v-druguu