Trigger macro if range contains

[Chewyhairball]

[FONT=&quot]Private Sub Worksheet_Change(ByVal Target As Range)[/FONT]
[FONT=&quot]If Not Intersect(Target, Range("A12")) Is Nothing Then[/FONT]
[FONT=&quot] If Range("A12").Value = "Bin1" Then Call ‘my macro’[/FONT]
[FONT=&quot]End If[/FONT]
[FONT=&quot]End Sub[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Hi[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]I have the above code that triggers ‘my macro’ when the text ‘Bin1’ is entered into cell A12, and it works fine.[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Is there a way for it to trigger ‘my macro’ if ‘Bin1’ is entered into any cell within the range A12:A1000 and not just A12[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]I don’t need it to trigger if it is entered multiple times, but if i remove all references to ‘bin1’ i would like it to trigger if it entered again.[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]thanks[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]for any help[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Rory[/FONT]

 

[DanteAmor]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A12:A1000")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If LCase(Target.Value) = LCase("Bin1") Then Call my_macro
  End If
End Sub

 

[Chewyhairball]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A12:A1000")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If LCase(Target.Value) = LCase("Bin1") Then Call my_macro
  End If
End Sub

awesome! works perfect. I love excel

Thank you DanteAmor

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.