The following may get you started.
Dim MDict As Dictionary
Dim SubDict1 As Dictionary
Dim SubDict2 As Dictionary
Set MDict = New Scripting.Dictionary
Set SubDict1 = New Scripting.Dictionary
Set SubDict2 = New Scripting.Dictionary
SubDict1.Add Key:="A", Item:=1
SubDict1.Add Key:="B", Item:=2
SubDict2.Add Key:="X", Item:=88
SubDict2.Add Key:="Y", Item:=99
MDict.Add Key:="SubDict1", Item:=SubDict1
MDict.Add Key:="SubDict2", Item:=SubDict2
MDict.Item("SubDict1").Add Key:="Nest1", Item:=3
MDict.Item("SubDict1").Add Key:="Nest2", Item:=4
Debug.Print MDict.Item("SubDict2").Item("X")

Signature
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)
> Hi,
>
[quoted text clipped - 12 lines]
>
> Alan
alan_deloitte@hotmail.co.uk - 19 Jan 2007 16:38 GMT
This appears to work perfectly!
many thanks.
A
> The following may get you started.
>
[quoted text clipped - 42 lines]
> >
> > Alan