Vba find sub dictionary

Sub NestedDictionary()
    Dim d1, d2
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")

    d1.Add "BPH", "Hello"
    d2.Add "Shaun", d1
    Debug.Print d2("Shaun").Item("BPH")
End Sub

Source: stackoverflow.com

Similar codes

0 vote182 views1 answer
Excel vba unlock sheet without password
VBA
31 votes286 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote170 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote144 views1 answer
Afficher un message d'erreur vba
VBA
1 vote154 views1 answer
Excel vba get column number from column name
VBA
0 vote155 views1 answer
Method showalldata of object _worksheet failed vba
VBA
1 vote136 views1 answer
How to do error handling in access vba
VBA
0 vote157 views1 answer
Add text to combobox drop down vb
VBA
0 vote157 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote152 views1 answer
Vbs
VBA