Worksheet_SelectionChange

I want to run the routine CommCalc when the contents of the range "Exec" changes. "Exec" has a drop down-list of names which I use to do various lookups. This code does not work?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Dim MRange As Range
    Set MRange = Range("Exec")
    Call CommCalc
End Sub

Thanks in advance

Try

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

try:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MRange As Range
Set MRange = Range("Exec")

If Not Intersect(Target, MRange) Is Nothing Then
    Call CommCalc
End If

End Sub

Edit: Damn you MarvinP . Your quicker on the draw then me.

I was 6th on the draw, my last post. AND it had already been marked as Solved. Now, lets hope this is what the OP wanted.