Deaktiver automatisk beregning på udvalgte faner

Er der ingen der kan hjælpe med min forespørgsel?

Måske kan nedenstående bruges. Makroen skal sættes ind på alle faneblade, der ikke har tunge formler. Beregning skal sættes til manuelt, og makroen tester på hvad der står i celle A1 på det aktuelle ark. Hvis der står 0 foretages der ingen beregning. Hvis der står 1 foretages der beregning i det aktuelle arks område A1:IV65536. Hvis der står 2 beregner den for samtlige ark. Andre tal giver samme resultat som 0.
Makroen aktiveres, når der skrives i en celle i området A1:IV65536.
Hvis celle A1 bruges allerede, kan du vælge en anden celle og så ændre linie 3 og 6 tilsvarende.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing Then
If Cells(1, 1) = 1 Then
Range("a1:IV65536").Calculate
Else
If Cells(1, 1) = 2 Then
Application.Calculation = xlCalculationAutomatic
End If
Application.Calculation = xlCalculationManual
End If
End If
End Sub

Eller den forkortede version:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing Then
Range("a1:IV65536").Calculate
End If
End Sub

Den beregner på det aktuelle ark, hvis det tastes noget ind i området A1:IV65536

Hej Jens48

Perfekt, tak for hjælpen.
Vil du smide et svar?

Fint, at det kunne bruges