If i have the following code in a module

Private WithEvents mAppEvents As Application

Private Sub mAppEvents_SheetActivate(ByVal Sh As Object)
        Sh.EnableCalculation = True
End Sub

Private Sub mAppEvents_SheetDeactivate(ByVal Sh As Object)
        Sh.EnableCalculation = False
End Sub

Once the Deactivate event is fired, given that it disables event, the sheet can never be enabled for events again. Is there a solution to this conundrum?