How to reduce Scroll Bar that has enlarged

[donggri84]

The spreadsheet contains 3000 lines and the scroll bar has enlarged to as long as the whole spreadsheet.
When trying to scroll down it takes 0.001 second to scroll way down to bottom line.
It's too fast.
Tried deleting empty cells by Control "-". The spreadsheet either freezes/crashes/ or just get worse and the time it takes to scroll does not change.
Anything else I can do?

Kind regards,

 

[Derek Brown]

What version of Excel are you using?

 

[donggri84]

Hello there,

I'm using Excel 2007
Just not sure how to stop autodeletion of 0's in the front of the digits after macro has run. :/

Thank you!!
Kind regards,

 

[Derek Brown]

Have a look at the "XSFormatCleaner" add-in available from Microsoft:
How to reset the last cell in Excel
There was no mention of a macro in your original post.

 

[donggri84]

Ooooohhh!!! Sorry I got confused with my other thread.
Please disregard comment before regarding 0's and macros.
I only have the scroll bar problem.
Do I still use the XSFormatCleaner?

 

[Derek Brown]

Give it a try on a COPY of your workbook and see if it makes a difference.

 

[donggri84]

Hmmm It does not seem to be working.
I've saved the file and re-opened and nothing seemed to have changed.
There were some hidden rows 2990-1048570. I tried unhiding rows but everything just freezes and crashes.
Seems like there's no way it can be fixed?

Thank you

 

[Derek Brown]

The hidden rows are the cause of the scroll bar size.
Try running the following macro:

Sub Unhide()
Dim ws As Worksheet
Dim rng As Range
'
Application.ScreenUpdating = False
Set ws = ActiveSheet
Set rng = ws.Range("A2990:A1048570")
rng.Rows.Hidden = False
Set rng = Nothing
Set ws = Nothing
Application.ScreenUpdating = True
End Sub