Application.CalculationState (Excel)

Retorna uma constante XlCalculationState que indica o estado de cálculo do aplicativo, para qualquer cálculo que esteja sendo executado no Microsoft Excel. Somente leitura. Os valores de retorno possíveis são xlCalculating - Cálculos em processo, xlDone - Cálculos concluídos, xlPending - Foram feitas alterações que dispararam o cálculo, mas ainda não foi realizado um recálculo.

If Application.CalculationState = xlDone Then 
 MsgBox "Done" 
Else 
 MsgBox "Not Done" 
End If