Scripting.Dictionary

[Guest]

Can anyone help, I am getting this error. Thank you!

***Compile Error
***User Defined not type Defined

Private Sub LoadMares()
Dim mares As New Scripting.Dictionary ***(THIS IS HIGHLIGHTED)
Dim index As Long
Dim Mare As String
For index = 2 To Source.Rows.Count
Mare = Source.Cells(index, 1)
If Not mares.Exists(Mare) Then
mares.Add Mare, Mare
cmbMare.AddItem Mare
End If
Next


End Sub

 

[paul.robinson]

Hi
You need to set a reference (in Tools) to the Microsoft Scripting
Runtime library (which is not part of Excel VBA, hence the error)
regards
Paul

 

[Bob Phillips]

See response to earlier post in this group.


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)