Insira esse código no objeto "Essa_Pasta_de_Trabalho" da sua Workbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "Sheet2" _
Or ActiveSheet.Name = "Sheet3" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
End Sub

Abrç!

Olá André Arruda, obrigado pelo retorno.

O código que você postou desabilita o cálculo para todas as planilhas. Você saberia me dizer como eu consigo desabilitar para algumas das planilhas em específico? Por ex, quando eu estiver na Sheet1 eu quero que o Excel efetue os cálculos da Sheet1 e da Sheet2, MAS NÃO efetue os cálculos da planilha 3.

Isso seria possível?

Obrigado,
Abraço!

Rafa

O código acima desabilita o cálculo automático se o nome da planilha ativa for Sheet1, Sheet2 ou Sheet3. Qualquer outra planilha que estiver ativa e não possuir um desses três nomes, seu cálculo será automático.

Quanto ao seu questionamento, eu não tenho certeza mas eu acho que o Excel não fica calculando todas as abas da sua pasta de trabalho. Ele só realiza cálculos na planilha ativa. Sendo assim o cálculo da Sheet2 só será realizado no momento que você ativá-la.

Resumindo, não sei como fazer isso que me pediu.

Boa tarde, colegas

Acho que a propriedade a usar teria que ser a EnableCalculation da Worksheet:

Sub DesativaRecálculoPlans123()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    ws.EnableCalculation = False
  Next ws
End Sub

Posteriormente, ao restabelecer para True o recálculo é feito no mesmo instante, não sendo necessário usar ws.Calculate ou Application.Calculate.

Não conhecia esse membro da classe worksheet.

Até pesquisei um pouco na biblioteca mas não havia reparado nele.

Obrigado colega EdsonBR.

Tb nao conhecia! Muito boa esta opção.