Deaktiver beregning i ark

Prøv at sætte dette i ThisWorkbook modulet, ret til dit ark


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Ark2" Then
        Application.Calculation = xlCalculationManual
        MsgBox "manuel beregning"
    End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "Ark2" Then
        Application.Calculation = xlCalculationAutomatic
        MsgBox "Automatisk beregning"
    End If
End Sub

Super! Tak det virker. Lægger du et svar?

et svar ;-))