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

Открываю 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

Кривцов Анатолий,

Переменная объявлена один раз ....
Пробовал ее объявлять в перечисленных подпрограммах, в одной или другой, но конечно толку никакого ....

Панург,

да я так и сделал...

Добрый день, спасибо всем за помощь!
В итоге разобрался.

Согласен, что надо было чуть больше кода написать, но не хотел загружать никого, интересовал сам принцип.
И надо было более акцентировано написать, что код Public Sub WorkBook_Open() исполняется при открытии Excel книги.
И я хотел сразу при открытии книги исполнялся код и зафиксировалось имя книги в переменной FN_RPG и дальше использовать ее значение в Public Sub ConnectExcel().
Но значение в Public Sub ConnectExcel() не попадало.