Try

If Not Intersect(Target, Range("Exec")) Is Nothing then
     Call CommCalc
End if