title: (VBA) Putting ComboBox + macroevent on cell change
body: <p>I'm trying to put a combobox inside active worksheet (but not activeX combobox), choose a list to fill and linked cell. It is an easy task, for example:</p>
  
  <pre><code>Sub make_combobox()
  
  ActiveSheet.DropDowns.Add(69.75, 1.5, 79.5, 40.5).Select
  Selection.Name = "combo"
  ActiveSheet.Shapes("combo").Select
  With Selection
      .ListFillRange = "$A$1:$A$3"
      .LinkedCell = "$D$1"
      .DropDownLines = 8
      .Display3DShading = False
  End With
  
  End Sub
  </code></pre>
  
  <p>I tried to put macro in worksheet containing this combobox, which will show msgbox whenever chosen linked cell is changed according to the chosen option in combobox. I wrote this in Worksheet section: </p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range("D1")) Is Nothing Then
      MsgBox "It works!"
  End If
  
  End Sub
  </code></pre>
  
  <p>Unfortunately, it doesn't work (Actually, it works when I change a value in D1 manually, but not work as a result of change in combobox).</p>