Stack overflow problem

hello,

I'm using the following code and I'm getting a stack overflow error in Excel 2007...does anyone know how to solve this problem??

Option Explicit

Sub ertert()
Dim x(), i&, j&, k&, s$

With Range("A1").CurrentRegion
    x = .Value: .ClearContents
End With
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 1 To UBound(x)
        s = x(i, 1) & "|" & x(i, 2)
        If .Exists(s) Then
            k = .Item(s): x(k, 3) = x(k, 3) & ", " & x(i, 3)
        Else
            j = j + 1: .Item(s) = j
            x(j, 1) = x(i, 1)
            x(j, 2) = x(i, 2)
            x(j, 3) = x(i, 3)
        End If
    Next i
End With

Range("A1:C1").Resize(j).Value = x()
End Sub

Try removing the"()" after x() in the Dim statement and in the last line before End Sub. Also note that x has 2 dimensions (one for row, one for column) so Ubound(x) should be Ubound(x,1) or Ubound(x,2).

I'm still having the same problem...this is the code I used this time

Option Explicit

Sub ertert()
Dim x, i&, j&, k&, s$

With Range("A1").CurrentRegion
    x = .Value: .ClearContents
End With
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 1 To UBound(x, 1)
        s = x(i, 1) & "|" & x(i, 2)
        If .Exists(s) Then
            k = .Item(s): x(k, 3) = x(k, 3) & ", " & x(i, 3)
        Else
            j = j + 1: .Item(s) = j
            x(j, 1) = x(i, 1)
            x(j, 2) = x(i, 2)
            x(j, 3) = x(i, 3)
        End If
    Next i
End With

Range("A1:C1").Resize(j).Value = x
End Sub

When I hit debug it highlights this x = .Value:

Seems the current region is too large to store x in memory. Have you tried testing the exact same code on a smaller mock up of your data; i.e. with a much smaller current region?