Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("B3:AF14")) Is Nothing Then Sh.Range("B3:AF14").Calculate
If Not Intersect(Target, Sh.Range("B22:AF33")) Is Nothing Then Sh.Range("B22:AF33").Calculate
If Not Intersect(Target, Sh.Range("B41:AF52")) Is Nothing Then Sh.Range("B41:AF53").Calculate
End Sub