Hi Moe,

Try this in the ThisWorkbook module:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Sh.Name Like "*Calc*" Then Exit Sub
End Sub