auto calculation

[gmazza76]

Good AFternoon,

I have a spreadsheet with a button that opens set sheets depending on the password as below. Is there anyway i can add in VB that auto calculation is turned on as the sheets that open need to automatically calculate to give scores.

Dim myBook As Workbook
Dim iRow As Long
Dim FYV_Sht As Worksheet
Dim lRow As Integer
Dim I As Long
Dim gotcha As Boolean
Dim cCell As Variant
Dim MyManagerName As String
Dim MyFind As Object
    
    If Worksheets("Info").Range("S" & cmbMgrs.ListIndex + 2) = txtPass Then ' Start of 1st If Block
        MsgBox "Correct password entered, please wait while the correct sheets are opened", vbInformation
        Sheets("Main").Visible = -1
        With Worksheets("Info")
            Select Case cmbMgrs.Text
            Case .Range("R3")

The above code opens set sheets depending on the password being correct

Many Thanks

 

[Richard Schollar]

Hi

Nothing in your posted code attempts to open a workbook.

You can change the Application setting to be automatic:

Application.Calculation = xlCalculationAutomatic