I've got the familiar problem of the last cell of data being row 6000, but
the scroll bar going down to 17000.

Now, I 've tried the Debra Dalglish method:
http://www.contextures.on.ca/xlfaqApp.html#Unused

....and the Dave McRitchie attributed one:

Sub makelastcell()
' David McRitchie, posted 2000-11-30 (see lastcell.htm)
' ---- tested only on Excel 2000, should work also on Excel 97 ------
Dim x As Integer
On Error GoTo 0
x = MsgBox("Do you want the activecell to become " & _
"the lastcell" & Chr(10) & Chr(10) & _
"Press OK to Eliminate all cells beyond " _
& ActiveCell.Address(0, 0) & Chr(10) & _
"Press CANCEL to leave sheet as it is", _
vbOKCancel + vbCritical + vbDefaultButton2)
If x = vbCancel Then Exit Sub
Range(ActiveCell.Row + 1 & ":" & 65536).Delete
Range(Cells(1, ActiveCell.Column + 1), Cells(65536, 256)).Delete
Beep
ActiveWorkbook.Save
Beep
End Sub


......but still no joy. Is there anything else to try (note I've deleted all
named ranges)? One point is that the columns carry formating (border and
fill) rather than the individual cells.

I'm using Excel 2003 by the way.

Best regards

John

Those methods are pretty much it.

You might need to experiment with them (those methods) on new blank sheet,
and try to discover what is causing your problem.

--
Regards,
Tom Ogilvy

"John" wrote in message
...
I've got the familiar problem of the last cell of data being row 6000, but
the scroll bar going down to 17000.

Now, I 've tried the Debra Dalglish method:
http://www.contextures.on.ca/xlfaqApp.html#Unused

...and the Dave McRitchie attributed one:

Sub makelastcell()
' David McRitchie, posted 2000-11-30 (see lastcell.htm)
' ---- tested only on Excel 2000, should work also on Excel 97 ------
Dim x As Integer
On Error GoTo 0
x = MsgBox("Do you want the activecell to become " & _
"the lastcell" & Chr(10) & Chr(10) & _
"Press OK to Eliminate all cells beyond " _
& ActiveCell.Address(0, 0) & Chr(10) & _
"Press CANCEL to leave sheet as it is", _
vbOKCancel + vbCritical + vbDefaultButton2)
If x = vbCancel Then Exit Sub
Range(ActiveCell.Row + 1 & ":" & 65536).Delete
Range(Cells(1, ActiveCell.Column + 1), Cells(65536, 256)).Delete
Beep
ActiveWorkbook.Save
Beep
End Sub


.....but still no joy. Is there anything else to try (note I've deleted
all
named ranges)? One point is that the columns carry formating (border and
fill) rather than the individual cells.

I'm using Excel 2003 by the way.

Best regards

John