Multi Worksheet_SelectionChange error

[Vincent88]

I got error when I tried to create two selectionchange. How should I correct it ?

The code is
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Selection.Count = 1 Then
If Not Intersect(Target, Range("C1")) Is Nothing Then
Call Module4.Check

ElseIf Not Intersect(Target, Range("A2:A")) Is Nothing Then
Call Module15.ExtractNumbers2
Exit Sub
End If
End If


End Sub

 

[Norie]

"A2:A" is not a valid range reference.