title: VBA paste excel data or multiple cells to web text area
body: <p>I have been trying to copy and paste or use .value for a range of cells from excel into a web text area.  I can only do with a single cell.  The link ( <a href="https://en.batchgeo.com/" rel="nofollow">https://en.batchgeo.com/</a>) allows you to copy and paste multiple addresses and map it for you.  I cannot seem to do it in excel vba. </p>
  
  <p>VBA Excel Macro Attempt:</p>
  
  <pre><code>Sub BatchGeo2()
  Dim IE As Object
  Dim MyURL As String
  
  
  Set IE = CreateObject("InternetExplorer.Application")
  'create new instance of IE. use reference to return current open IE if
  'you want to use open IE window. Easiest way I know of is via title bar.
  MyURL = "https://en.batchgeo.com/"
  
  
  IE.Navigate MyURL
  'go to web page listed inside quotes
  IE.Visible = True
  
  While IE.busy
  DoEvents 'wait until IE is done loading page.
  
  Wend
  
  
  
  With IE.Document
  
      .getElementById("sourceData").innerText = Range("A25:C27")
      .all("mapnow_button").Click
  
  End With
  
  End Sub
  </code></pre>