I have a large amount of data (over 500,000 rows) so I have spread thi
data over multiple sheets. The code I have written has to find record
that match certain criteria and does this by looping through cells
However, when it reaches the bottom of the first sheet (row 65536)
need it to start on the next sheet but I keep getting a Run time error
Here is the bit of code....

If ActiveCell.Row = 65536 And ActiveSheet.Index < 9 Then
g3000SheetNumber = ActiveSheet.Index + 1
Sheets(g3000SheetNumber ).Activate
Cells(1, 1).Select

It manages to select the new sheet but when I try to select the firs
cell of the sheet it throws the error. Can anyone help please?

--
smit12
-----------------------------------------------------------------------
smit127's Profile: http://www.excelforum.com/member.php...fo&userid=2687
View this thread: http://www.excelforum.com/showthread.php?threadid=40108

What is the error message? Subscript out of range? Are you already on the
last sheet when you get the error? (i.e. are there less than 9 sheets?)
Your "End IF" statement is missing. Are there more lines of code before the
End If?

"smit127" wrote:


I have a large amount of data (over 500,000 rows) so I have spread this
data over multiple sheets. The code I have written has to find records
that match certain criteria and does this by looping through cells.
However, when it reaches the bottom of the first sheet (row 65536) I
need it to start on the next sheet but I keep getting a Run time error.
Here is the bit of code....

If ActiveCell.Row = 65536 And ActiveSheet.Index < 9 Then
g3000SheetNumber = ActiveSheet.Index + 1
Sheets(g3000SheetNumber ).Activate
Cells(1, 1).Select

It manages to select the new sheet but when I try to select the first
cell of the sheet it throws the error. Can anyone help please??


--
smit127
------------------------------------------------------------------------
smit127's Profile: http://www.excelforum.com/member.php...o&userid=26870
View this thread: http://www.excelforum.com/showthread...hreadid=401083