title: Worksheet_Change(ByVal Target as Range) doesn't work
body: <p>Probably I'm missing something but the most simple &quot;Worksheet_Change&quot; doesn't work at all. The code is placed in the correct worksheet and is exactly the same as in samples I have found in my search to solve the problem. Please ignore the lines that start with &quot;'&quot; as they will be part of the code after the issue is solved. I've simplified the code in trying to localize the issue but as I said, even this simple code doesn't work, even if I use a new Workbook with only one sheet. As said, I might be missing something completely simple but for the moment, I don't know what it is. Thank you.</p>
  <p>Jan</p>
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
  
  '    Dim KeyCells As Range
  
  '    Set KeyCells = Range(&quot;Orders[Nieuw]&quot;)
      
  '    If Not Application.Intersect(Range(&quot;Orders[Nieuw]&quot;), Target) _
  '       Is Nothing Then
  '    If Target.Address = &quot;$C$10&quot; Then
  
  Application.EnableEvents = False
  
  '    If Target.Value = &quot;Ja&quot; Then
  
  MsgBox &quot;This Code Runs When Cell A1 Changes!&quot;
  
  Target.Font.ColorIndex = 5
  
  
  '    Range(&quot;AG2&quot;).Select
  '    Selection.Copy
      
  '    Range(&quot;Ordernummerbereik&quot;).Select
  '    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  '        :=False, Transpose:=False
          
  '    SendKeys (&quot;{ESC}&quot;)
  '    End If
  
  Application.EnableEvents = True
  
  '    End If
  
  End Sub
  </code></pre>