B

#### bojan0810

Sub comb()

Dim a As Range

Dim b As Range

Dim c As Range

Dim d As Range

Dim e As Range

Dim f As Range

Dim g As Range

Dim h As Range

Dim i As Range

Dim j As Range

Dim k As Range

Dim l As Range

Dim m As Range

Dim n As Range

Dim o As Range

Dim p As Range

Dim q As Range

Dim r As Range

Dim s As Range

Dim t As Range

Dim combination As Range

Dim counter

Set combination = Worksheets(1).Range("v:v")

counter = 1

With Worksheets(1)

For Each a In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))

For Each b In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))

For Each c In .Range("c2", .Range("c" & .Rows.Count).End(xlUp))

For Each d In .Range("d2", .Range("d" & .Rows.Count).End(xlUp))

For Each e In .Range("e2", .Range("e" & .Rows.Count).End(xlUp))

For Each f In .Range("f2", .Range("f" & .Rows.Count).End(xlUp))

For Each g In .Range("g2", .Range("g" & .Rows.Count).End(xlUp))

For Each h In .Range("h2", .Range("h" & .Rows.Count).End(xlUp))

For Each i In .Range("i2", .Range("i" & .Rows.Count).End(xlUp))

For Each j In .Range("j2", .Range("j" & .Rows.Count).End(xlUp))

For Each k In .Range("k2", .Range("k" & .Rows.Count).End(xlUp))

For Each l In .Range("l2", .Range("l" & .Rows.Count).End(xlUp))

For Each m In .Range("m2", .Range("m" & .Rows.Count).End(xlUp))

For Each n In .Range("n2", .Range("n" & .Rows.Count).End(xlUp))

For Each o In .Range("o2", .Range("o" & .Rows.Count).End(xlUp))

For Each p In .Range("p2", .Range("p" & .Rows.Count).End(xlUp))

For Each q In .Range("q2", .Range("q" & .Rows.Count).End(xlUp))

For Each r In .Range("r2", .Range("r" & .Rows.Count).End(xlUp))

For Each s In .Range("s2", .Range("s" & .Rows.Count).End(xlUp))

For Each t In .Range("t2", .Range("t" & .Rows.Count).End(xlUp))

combination(counter) = a.Value & "*" & b.Value & "*" & c.Value & "*" & d.Value & "*" & e.Value & "*" & f.Value & "*" & g.Value & "*" & h..Value & "*" & i.Value & "*" & j.Value & "*" & k.Value & "*" & l.Value & "*" & m.Value & "*" & n.Value & "*" & o.Value & "*" & p.Value & "*" & q.Value& "*" & r.Value & "*" & s.Value & "*" & t.Value

counter = counter + 1

Next t

Next s

Next r

Next q

Next p

Next o

Next n

Next m

Next l

Next k

Next j

Next i

Next h

Next g

Next f

Next e

Next d

Next c

Next b

Next a

End With

End Sub

Basically it combines all column words into one sentence with * as seperation... Anyway. My problem is. It doesnt want finish till end or at least as much as excel can...

Sometimes it stopes on around 65k combinations sometimes on 85k... But never till end. It gives me error.

Now I think code works "ok" but it doesnt want to finish it.

And I am not sure what is wrong.

I hope someone can help me.

P.S. Hi Claus lol