VBA turn off auto-calculate + button to calculate

[DarkSmile]

Hi,

I need 2 VBA codes, I have a file with a lot of formula's and don't want them to calculate all at the same time.

First VBA; should turn auto-calculate of at all time
I tried this in ThisWorkBook module but doesn't seem to work?

Private Sub Workbook_Open()
    Application.Calculation = xlCalculationManual
End Sub

The second one I would like to only calculate the rows that are filtered. So how the file works is; I filter column B , and it gives me the rows.
I want a button that I can click so it calculates the formulas for the filtered rows only.


Hopefully its clear enough.

Thank you,
David

 

[DarkSmile]

I think I found an option for the first part.

Private Sub Workbook_Open()
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = False
End Sub

Second part not yet.

 

[DarkSmile]

Sub Calculate()
    Dim answer As Integer

        answer = MsgBox("Wil je de formules refreshen?", vbQuestion + vbYesNo + vbDefaultButton2, "Refresh Formulas")
    If answer = vbYes Then
        Sheets("Planningstabel").Range("A3:I1048576").SpecialCells(xlCellTypeVisible).Calculate
    Else
    End If
End Sub