Out of Space in coloum

[Pete]

I have this bit of code that I use and it seams to run without any trouble
until it max's out the coloum that I start in.

What I want it to do is when the code reaches lest say row 25000 I want it
to move over to the next coloum and pick up where it left off in the previous.

I just can't seam to figure ii out.

Application.ScreenUpdating = False
Sheets("Sheet1").Select
Range("A1").Select

For card1 = 1 To 30
For card2 = 2 To 30
For card3 = 3 To 30
If Not (card1 = card2 And card2 = card3) Then
ActiveCell = card1 & "-" & card2 & "-" & card3
ActiveCell.Offset(1, 0).Select
End If
Next card3
Next card2
Next card1

TIA

 

[Toppers]

Pete,

Try this - it moves to next column on 20001st entry .. change as required

HTH

Sub Macro1()
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Range("A1").Select

For card1 = 1 To 30
For card2 = 2 To 30
For card3 = 3 To 30
If Not (card1 = card2 And card2 = card3) Then
ActiveCell = card1 & "-" & card2 & "-" & card3
ActiveCell.Offset(1, 0).Select
If ActiveCell.Row = 20001 Then Cells(1, ActiveCell.Column + 1).Select
End If
Next card3
Next card2
Next card1


End Sub