title: Automatic popup when new data entry in sheet1 change a cell value in another sheet2
body: <p>I've a problem about automatic message. I have a macro that put a data entry into sheet2 (the active sheet) in column A. This entry write a new entry in sheet2 column B. Now in sheet1 (that is NOT the active sheet) this data entry (sheet2 column B) automatically updates the value in sheet1 column C (by a formula inside the cell). If the sheet1 column C reach a specific threshold (e.g. 25%) the sheet1 column D is updated and change from "Ok" state to "Not Ok" state. I want that everytime the column D status change from "Ok" to "Not Ok" an alert message is visible. Could you have any idea, please? I hope in your help!
  I just tried worksheet_change in sheet1 and it works, how can I show the pop-up automatically even if I'm working into sheet2?
  Thank you preventively for your kindly help!</p>
  
  <p>In sheet1 this code works fine:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
   Dim KeyCells As Range
   Set KeyCells = Range("list") ' range between A to D column
  
  Application.EnableEvents = False
  
  If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
   If Cells(Target.Row, "D") = "Not Ok" Then
   MsgBox Cells(Target.Row, "A") &amp; " is not Ok!"
   End If
  End If
  
   Application.EnableEvents = True
  
  End Sub
  </code></pre>
  
  <p>But if I insert this code in Workbook it doesn't work</p>
  
  <pre><code>
  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Dim KeyCells As Range
   Set KeyCells = Range("list")
  
   Application.EnableEvents = False
  
  If Sh.Name = "sheet1" Then
   If Not Application.Intersect(Target, Sh.Range("list")) Is Nothing Then
    If Cells(Target.Row, "D") = "Not Ok" Then
     MsgBox Cells(Target.Row, "A") &amp; " is not Ok!"  
    End If
   End If
  End If
  
   Application.EnableEvents = True
  
  End Sub
  </code></pre>