Hi,
I have the following procedure:
Sub store_Dict()
Dim key As Variant
Dim myDict As New Dictionary
Set myDict = CreateDictFromColumns("Sheet1", 1, 4)
For Each key In myDict.Keys
Debug.Print "Key = ", key, " Change = ", myDict(key)
Next
End Sub
Where UDF CreateDictFromColumns is...