Cell Change Run Code

[helpexcel]

I', assuming this code will run if any cell on Sheet1 is changed? How do i change it to only run if a cell in J1:J15 is changed?

If Target.Cells.Count <> 1 Then Exit Sub    
If Not Intersect(Target, Range("J1:J15")) Is Nothing Then
       Select Case Target.Value
        Case "Apple"
            Call Kawhi
        Case "Three"
            Call Curry
        End Select
End If

 

[Fluff]

Difficult to answer your question exactly, because you have not included the entire code. We have no way of knowing if that a change event, selection change event, or something completely different.
The opening line can be one of the most important parts of the code.
Can you please post the complete code.

 

[helpexcel]

I left this piece out, but that's my code.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[Fluff]

In that case the code will only run when you change a value in J1:J15.
Whilst it will trigger whenever you change any cell, nothing will happen.

 

[helpexcel]

Can I duplicate this code multiple times using different ranges on the same sheet?

 

[Fluff]

Yes, just add an ElseIf before the End If & specify the range