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