Dictionary

Jac,

In the VBE, go to Tools | References and checkmark "Microsoft Scripting Runtime"

Regards,
Jim Cone
San Francisco, USA


"Jac Tremblay" <jac.tremblay@donotspam.com> wrote in message
news:29B43398-953B-481A-901D-E10503DCB974@microsoft.com...
> Hi,
> I want to use the dictionary to store unique values but it only works at the
> office where they use Excel XP. At home, with Excel 2003, the same code does
> not work. I get the error "Incorect use of keyword New". There is a reference
> to Microsoft Scripting Runtime at both places. What could be the problem?
> Here is the code:
> ' **********************************************************
> Option Explicit
> Private mdctDouble As Dictionary
> ' **********************************************************
> Private Sub TestDictionary()
> Set mdctDouble = New Dictionary
> MsgBox "Jac is already in the dictionary : " & IsDouble("Jac")
> MsgBox "Jac is already in the dictionary : " & IsDouble("Jac")
> Set mdctDouble = Nothing
> End Sub
> ' ***********************************************************
> Private Function IsDouble(ByRef rstrKey As String) As Boolean
> If mdctDouble.Exists(rstrKey) Then
> IsDouble = True
> Else
> mdctDouble.Add rstrKey, rstrKey
> IsDouble = False
> End If
> End Function
> ' ***********************************************************
> Thanks in advance.
> Jac Tremblay

Hi Tim,
I do have a reference to Microsoft Scripting Runtime at both places. That
was mentioned in the original post. That is why I suspect some weird
behaviour from Excel and why I need some explanations or ideas.
Thank you for your concern.


"Jim Cone" wrote:

> Jac,
>
> In the VBE, go to Tools | References and checkmark "Microsoft Scripting Runtime"
>
> Regards,
> Jim Cone
> San Francisco, USA
>
>
> "Jac Tremblay" <jac.tremblay@donotspam.com> wrote in message
> news:29B43398-953B-481A-901D-E10503DCB974@microsoft.com...
> > Hi,
> > I want to use the dictionary to store unique values but it only works at the
> > office where they use Excel XP. At home, with Excel 2003, the same code does
> > not work. I get the error "Incorect use of keyword New". There is a reference
> > to Microsoft Scripting Runtime at both places. What could be the problem?
> > Here is the code:
> > ' **********************************************************
> > Option Explicit
> > Private mdctDouble As Dictionary
> > ' **********************************************************
> > Private Sub TestDictionary()
> > Set mdctDouble = New Dictionary
> > MsgBox "Jac is already in the dictionary : " & IsDouble("Jac")
> > MsgBox "Jac is already in the dictionary : " & IsDouble("Jac")
> > Set mdctDouble = Nothing
> > End Sub
> > ' ***********************************************************
> > Private Function IsDouble(ByRef rstrKey As String) As Boolean
> > If mdctDouble.Exists(rstrKey) Then
> > IsDouble = True
> > Else
> > mdctDouble.Add rstrKey, rstrKey
> > IsDouble = False
> > End If
> > End Function
> > ' ***********************************************************
> > Thanks in advance.
> > Jac Tremblay
>