title: Excel VBA code to populate cell with text adjacent to cell based on choice in adjacent
body: <p>Trying to write code to populate a cell adjacent to a cell with a drop-down menu, based on the choice made in the drop-down menu.</p>
  
  <p>I need this to apply to only the active sheet and not necessarily needed for the whole workbook. </p>
  
  <p>Relatively new to writing code in VBA and probably a rookie mistake, but still need some help!</p>
  
  <p>Getting runt-time error <strong>Method 'Value' of object 'Range' failed.</strong></p>
  
  <p>Here's the code I have, and it's the only code in the whole workbook...</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  
  Select Case Range("F18")
  
  Case "Made Margin/Made Sales $"
      Worksheets("Store #").Range("G18").value = 
      "Made margin by $XXX GIG at XX.XX%. Shrink  at XX.XX% or $XXX. QTD Margin at 
      XX.XX%"
  
  Case "Made Margin/Missed Sales $"
      Worksheets("Store #").Range("G18").value = 
      "Made margin by $XXX GIG at XX.XX%. Shrink at XX.XX% or $XXX. QTD Margin at XX.XX%   
      Missed sales by $XXX. Begin explaining Sales $ miss here"
  
  Case "Missed Margin/Made Sales$"
      Worksheets("Store #").Range("G18").value = "Missed margin by $XXX GIG at XX.XX%.   
      Shrink at XX.XX% or $XXX. QTD Margin at XX.XX% Made sales by $XXX. Begin explaining   
      Margin $ miss here"
  
  Case "Missed Margin/Missed Sales"
      Worksheets("Store #").Range("G18").value = "Missed margin by $XXX GIG at XX.XX%.  
      Shrink at XX.XX% or $XXX. QTD Margin at XX.XX% Begin explaining Margin $ miss here,  
      followed by explaining Sales $ miss"
  
  End Select
  
  End Sub
  </code></pre>
  
  <p>Any help would be GREATLY appreciated! </p>