title: How to extract the name of the stock in yahoo finance
body: <p>I have found a code that extracts all data from the tables in the "financial" tab in yahoo finance.
  Now I'll want to have the possibility to extract also the name of the stock to insert the cell A3, near to the stock symbol.</p>
  
  <pre><code>'this is the code to exctact the data
   Dim htm, Tr, Td, Tab1, Tab2, HTML_Content As Object
   Dim Web_URL As String
   Dim Column_Num_To_Start, iRow, iCol, eCol, iTable As Integer
   Dim Val, varVal1, varVal2, varVal3 As Variant
   Dim chtObj As ChartObject
  
   Column_Num_To_Start = 1
   iRow = 7
   iCol = Column_Num_To_Start
   iTable = 2
  
   Web_URL = "https://finance.yahoo.com/quote/" &amp; Cells.Range("A2").Value &amp; "/financials?p=" &amp; Cells.Range("A2").Value
  
   Set HTML_Content = CreateObject("htmlfile")
  
   With CreateObject("msxml2.xmlhttp")
     .Open "GET", Web_URL, False
     .send
     HTML_Content.body.innerHTML = .responseText
   End With
  
   For Each Tab1 In HTML_Content.getElementsByTagName("table")
       With HTML_Content.getElementsByTagName("table")(iTable)
           For Each Tr In .Rows
               For Each Td In Tr.Cells
               ActiveSheet.Cells(iRow, iCol).Select
               ActiveSheet.Cells(iRow, iCol) = Td.innerText
               ActiveCell.WrapText = False
               iCol = iCol + 1
               Next Td
            eCol = iCol - 1
            iCol = Column_Num_To_Start
            iRow = iRow + 1
            Next Tr
          End With
      Exit For
  Next Tab1
  </code></pre>