title: How can I create a drop-down box programmatically in Excel?
body: <p>I have a spread sheet which has a drop down in sheet1. Can anyone please tell me how to make a drop down in sheet3 of that same spread sheet assuming that it has three sheets named sheet1, sheet2, and sheet3.  The program is shown below.</p>
  
  <pre><code>  Range("A1").Select
  
    With Selection.Validation
  
      .Delete
  
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  
      xlBetween, Formula1:="=$B$1:$B$3"/*Guess i need to make some change in this*/
  
      .IgnoreBlank = True
  
      .InCellDropdown = True
  
      .InputTitle = ""
  
      .ErrorTitle = ""
  
  
      .InputMessage = ""
  
      .ErrorMessage = ""
  
      .ShowInput = True
  
      .ShowError = True
  
    End With
  </code></pre>
  
  <p>Thanks a lot </p>