Why does my spreadsheet take so long to load ...?

[chazrab]

First of all, Happy Holidays to all - I just got a new tablet - 32 bit O/S, 2 GB RAM, Win 8.1 and plenty enough storage for just a few apps. My spreadsheet file is 139 MB(doesn't seem that big to me), and it takes a full 60 seconds or more to fully load and appear on the screen. Why would this be ? I can offer this: I have about 90 userforms, and about 100 sheets. When the file first opens, the following code finds the correct column in(down) the sheet:

Sub INTVAL()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim ca, b, h, v, w, s, z As Currency, d, begdate As Date, x, y As Long, colrng As Range
d = Date
begdate = Range("startdate").Value
x = (Date - begdate) / 7
y = Int(x)
    If (x - y) >= 0.5 Then
         colnum = Int(x) + 1
    Else
         colnum = Int(x)
    End If
If colnum > 1 Then
   Worksheets("BUDGET").Cells(2, colnum).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 9167871
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Application.EnableEvents = True
Application.ScreenUpdating = True

End If
End Sub

This INTVAL macro runs when the sheet is activated - could this calculation be what's bogging it down ? or is it the number of sheets and userforms all with underlying code ? or something else ?

Thx for anyone's suggestions.
cr

 

[Redwolfx]

With so many sheets etc. the potential for calculations to be happening is High, you can try adding

Application.Calculation = xlCalculationManual at the top and

Application.Calculation = xlCalculationAutomatic at the end.

This might help some