Syntax error assistance required

[Aussiebear]

I have the following code within a module which keeps throwing up a syntax error 'wrong number of arguments or invalid property"

For i = 2 to lastRow
    ip=Trim(ws.Source.Cells(i, "C").Value)
    Dim parts() as String
    parts = Split(ip, ".")
    If UBound(parts) >=2 Then
        ipPrefix = parts(0) & "." & parts(1) & "." & parts(2)
    Else
        ipPrefix = ip 'fallback if not a valid IP
    End If
    If Not ip.Dict.exists(ipPrefix) Then
        Set rowList = New Collection
        ipDict (ipPrefix) = rowList
    End If
    ipDict(ipPrefix).add 1
Next i

How do I fix this issue?

[DocAElstein]

Hi
I may be talking rubbish or being too naïvely thinking just about Scripting.Dictionary stuff, but without seeing the rest of the coding, it seems a bit strange to me, just from that snippet, that you have a
If Not ip.Dict.exists(ipPrefix) Then

, and there after a
ipDict (ipPrefix) = rowList


Maybe that would not look so strange if I saw the rest of the coding

Alan

[Paul_Hossler]

Since rowList is an Object, maybe you need

Set ipDict (ipPrefix) = rowList

??

[Aussiebear]

Thank you Paul that worked for me.

[jindon]

Or

    If Not ipDict.exists(ipPrefix) Then
        ipDict.Add ipPrefix, New Collection
    End If

[Aussiebear]

Thank you Jindon.