Thank you. I've solved the issue by means of a special module and a function:Originally Posted by xld
Module T1:
[VBA]
Public SL(), Sn
Function SheetName(i)
Sn = 2
ReDim SL(Sn)
SL(1) = "Sheet1"
SL(2) = "Sheet2"
SheetName = SL(i)
End Function
[/VBA]
Now I can access this list, as well as its length, from anywhere in my code:
[VBA]
Sub zz()
Debug.Print VBAProject.T1.SheetName(1)
Debug.Print VBAProject.T1.Sn
End Sub
[/VBA]