Make dictionary object globally available

[mwl707]

Im trying to call a function and reference dictionary data from the sub. I just cant seem to declare the vrnHistory dictionary as a global resource. Ive stripped to the code down but the basics are below. I want to achive the MsgBox displaying the string is A1.
I know I need to dim vrnHistory as public but i cant make it work.
Any help much appreciated !

Public Sub GlobalTest()

Set vrnHistory = CreateObject("Scripting.Dictionary")

vrnHistory.Add "A1", "This is dictionary Data for global share"

FN_GlobalTest

End Sub


Public Function FN_GlobalTest()

MsgBox "Within Function called from SUB " & vrnHistory("A1")

End Function

 

[Domenic]

You'll need to declare vrnHistory at the very top of your module, before any procedure or function.

If you want the variable available only within the module itself, declare the variable with the Dim keyword...

Dim vrnHistory As Object

If you want the variable available to all regular modules within the project, declare the variable using the Public keyword...

Public vrnHistory As Object

Hope this helps!

 

[mwl707]

Thats a great help, thanks for taking the time to reply!

 

[mwl707]

You'll need to declare vrnHistory at the very top of your module, before any procedure or function.

If you want the variable available only within the module itself, declare the variable with the Dim keyword...

Dim vrnHistory As Object

If you want the variable available to all regular modules within the project, declare the variable using the Public keyword...

Public vrnHistory As Object

Hope this helps!

Thats a great help, thanks for taking the time to reply!

 

[Domenic]

You're very welcome, I'm glad I could help.

Cheers!