Передача переменной из одной функции в другу - VBA

Формулировка задачи:

Всем доброго времени суток. В Excel'e есть 2 кнопки: 1-вызывает функцию test() 2-вызывает функцию transport() Как передать массив one() из функции test() в функцию transport(),чтобы с ней можно было взаимодействовать.

Option Explicit
 
Public Sub test()
Dim one(2) As Variant
 
     one(1) = InputBox("Введите название сорта")
     one(2) = InputBox("Введите цену за 1кг")
 
Cells(2, 1) = Trim(StrConv(one(1), vbProperCase))
Cells(2, 2) = one(2)
End Sub
 
Sub transport()
 
    Cells(6, 6) = one(1)

End Sub

Заранее благодарю за ответы

Решение задачи: «Передача переменной из одной функции в другу»

textual
                            Листинг программы 
                        
                            Option Explicit
 
Dim one(2) As Variant
 
Public Sub test()
...