title: How to add a label and textbox based on combo box selection on a userform in excel
body: <p>I am currently working on a userform to create an order for users at a company to send to my dept.</p>
  
  <p>At the moment i have come to a standstill as i am struggling to work out the following.</p>
  
  <p>I have a combobox which has a list of products our business offers. Based on the selection i want to be able to add labels and textbox which require the user to enter data for example.</p>
  
  <p>If this selection in the combo box then
  Enter name, date required, location of user etc.</p>
  
  <p>Also this needs to be specific to the combobox selection.</p>
  
  <p>Any help would be much appreciated :)</p>
  
  <p><strong>UPDATE</strong></p>
  
  <p>Apologies, as i did not have any code for that function I did not add any Here is the code i have.</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Windows("RFS User Form Mock.xlsm").Visible = True
  End Sub
  
  Private Sub LegendDefinition_Change()
  LegendDefinition.Locked = True
  End Sub
  
  Private Sub RequestList_Change()
  Dim i As Long, LastRow As Long
      LastRow = Sheets("Definition").Range("A" &amp; Rows.Count).End(xlUp).Row
      For i = 2 To LastRow
      If Sheets("Definition").Cells(i, "A").Value = (Me.RequestList) Then
      Me.DefinitionBox = Sheets("Definition").Cells(i, "B").Value
      End If
      Next
  End Sub
  
  Private Sub RequestList_DropButtonClick()
  Dim i As Long, LastRow As Long
      LastRow = Sheets("Definition").Range("A" &amp; Rows.Count).End(xlUp).Row
      If Me.RequestList.ListCount = 0 Then
      For i = 2 To LastRow
      Me.RequestList.AddItem Sheets("Definition").Cells(i, "A").Value
      Next i
      End If
  End Sub
  
  Sub UserForm_Initialize()
     SiteList.List = Array("Birmingham", "Bristol", "Cardiff", "Chelmsford", "Edinburgh", "Fenchurch Street", "Glasgow", "Guernsey", "Halifax", "Homeworker", "Horsham", "Ipswich", "Jersey", "Leeds", "Leicester", "Lennox Wood", "Liverpool", "Manchester", "Peterborough", "Redhill", "Sunderland", "Madrid")
  End Sub
  
  Private Sub VLookUp_Change()
  VLookUp.Locked = True
  End Sub
  </code></pre>