You should dim your CurRow variable as Long. Haven't tested that, but
should do it.
James
wrote:
Hi,
I found this script in this group and changed it to my parameters. It
is finding a 10 line by 2 column wide header on the top of every page
of a file I imported and removing it. It works great but for some
reason it stops on line 32785. There are 54733 lines in the file. I
was hoping someone could review the code and see if you can tell why it
is stopping here.
Thanks!
Kim

Sub DeleteHeaders()

Dim intCurRow As Integer
Columns("A:A").Select
On Error GoTo jump1:
Do
Cells.Find(What:="STAT", After:=ActiveCell,
LookIn:=xlFormulas, Lookat _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate
intCurRow = ActiveCell.Row
ActiveCell.Range("A1:B10").Select
Selection.EntireRow.Delete
Loop
jump1:

End Sub