Out of Space in coloum

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
--
Pete

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

"Pete" wrote:

> 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
> --
> Pete