title: How to embed creating dropdown lists inside a select case on Excel?
body: <p>I can't figure out how to create dropdown lists depending on a certain cell value.
  I have these two functions but don't know how to merge them.</p>
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range(&quot;C14&quot;)) Is Nothing Then
  
      Select Case Range(&quot;C14&quot;)
  
          Case &quot;Emergency&quot;: EmergencyError
          Range(&quot;C18&quot;) = &quot;No&quot;
  
          'Case &quot;Basic&quot;:  ??
  
      'Stops Select Case statement
      End Select
  End If
  End Sub
  </code></pre>
  <pre><code>Sub BasicList()
  
      With Selection.Validation
          .Delete
          .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
          xlBetween, Formula1:=&quot;=DONNEES!$A$4:$A$10&quot;
          .IgnoreBlank = True
          .InCellDropdown = True
          .InputTitle = &quot;&quot;
          .ErrorTitle = &quot;&quot;
          .InputMessage = &quot;&quot;
          .ErrorMessage = &quot;&quot;
          .ShowInput = True
          .ShowError = True
      End With
  End Sub
  </code></pre>
  <p>The dropdowns to create are on another cell, the same only cell.</p>