2 subs on one excel spreadsheet

[butcherjb]

Hi below I have 2 subs on the same worksheet but only the top one works - Whay will the second sub not work? What am i doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[O1] = ActiveCell
End Sub
Private Sub Worksheet_SelectionChange1(ByVal Target As Excel.Range)
[J1] = ActiveCell
End Sub

JB

 

[VoG]

Maybe

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[O1] = ActiveCell
[J1] = ActiveCell
End Sub

 

[butcherjb]

Works perfectly - Thanks