Scroll bar problems / Absurd amount of rows showing up out of nowhere. Please Help!

[harrisondebord]

Hey there Mr. Excel board,
This spreadsheet that I have been working on is up to about 1100 rows. Today, suddenly a ludicrous amount of rows appeared at the bottom of my spreadsheet- (All the way up to Row # 1,048,576!)
As a result of this, my scroll bar on the right-hand side of my excel program has become very small and if i move it, even a shmidgen, to navigate through my workbook, It jumps down about 10,000 rows.

How can I fix this problem?
Help please!

Thank you,
Harrison

 

[MARK858]

Does running the ExcelDiet clean it up at all?
Code in a std module. Obviously make a copy of your data before running

Sub ExcelDiet()


    Dim x As Integer
    Dim LastRow As Long
    Dim LastCol As Integer


    Application.ScreenUpdating = False


    On Error Resume Next


    With ActiveSheet
        LastRow = Cells.Find(What:="", After:=Range("A1"), LookIn:=xlValues, _
                             LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        LastCol = Cells.Find(What:="", After:=Range("A1"), LookIn:=xlValues, _
                             LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        'Range(Cells(1, LastCol + 1), Cells(65536, 256)).Delete    '97-2003
        'Range(Cells(LastRow + 1, 1), Cells(65536, 256)).Delete    '97-2003
         
        Range(Cells(1, LastCol + 1), Cells(1048576, 16384)).Delete    '2007/10
        Range(Cells(LastRow + 1, 1), Cells(1048576, 16384)).Delete    '2007/10
        On Error GoTo 0
    End With
    Application.ScreenUpdating = True
End Sub