Excel VBA How to access data created in Thisworkbook module from Module1 module

user_15356974 0
Viewed 33

What I am trying to do is this:

In the ThisWorkbook module:

Option Explicit
'//== Does something need to go up here?  ==//
_________________

Private Sub Workbook_Open()

Public cellArray() As String
    
    '//==  init cellArray() ==//
    cellArray(0) = "start"      '//== for example  ==//
    
End Sub

In the Module1 module:

Option Explicit
'//== Does something need to go up here?  ==//
_________________

Sub mySub()

Dim localvariable as string

    local variable = ThisWorkbook.cellArray(0)      '//== for example  ==//
    '//== Does something different need to go here?  ==//

End Sub

Is something like this even possible?

Thanks,

vba excel
1 Answers

ThisWorkbook:

Option Explicit

Private Sub Workbook_Open()
    ReDim cellArray(0)
    cellArray(0) = "start"      
End Sub

Module1:

Option Explicit

Public cellArray() As String

Sub mySub()
    Dim localvariable as string
    localvariable = cellArray(0)
    Debug.Print localvariable     
End Sub
user_4788840
Related