title: Set HTML_Content = CreateObject("htmlfile") doesn't work
body: <p>I have this code, which copy the content of a website to Excel:</p>
  <pre><code>Sub HTML_Table_To_Excel()
  Dim htm As Object
  Dim Tr As Object
  Dim Td As Object
  Dim Tab1 As Object
  
  Web_URL = &quot;https://www.fxstreet.com/economic-calendar&quot;
  
  'Create HTMLFile Object
   Set HTML_Content = CreateObject(&quot;htmlfile&quot;)
  
   'Get the WebPage Content to HTMLFile Object
    With CreateObject(&quot;msxml2.xmlhttp&quot;)
   .Open &quot;GET&quot;, Web_URL, False
    .send
    HTML_Content.body.innerHTML = .responseText 'this is the highlighted part 
     for the error
    End With
   Column_Num_To_Start = 1
   iRow = 1
   iCol = 1
   iTable = 1
  
    'Loop Through Each Table and Download it to Excel in Proper Format
       For Each Tab1 In HTML_Content.getElementsByTagName(&quot;table&quot;)
     With HTML_Content.getElementsByTagName(&quot;table&quot;)(iTable)
      For Each Tr In .Rows
          For Each Td In Tr.Cells
          Worksheets(&quot;Sheet1&quot;).Cells(iRow, iCol).Select
          Worksheets(&quot;Sheet1&quot;).Cells(iRow, iCol) = Td.innerText
          iCol = iCol + 1
          Next Td
      iCol = Column_Num_To_Start
      iRow = iRow + 1
      Next Tr
    End With
  
   Next Tab1
  
   MsgBox &quot;Process Completed&quot;
   End Sub
  </code></pre>
  <p>This coding was working so well, but now is not working; &quot;a message appear: Run-Time '429': ActiveX component can't create object &quot;  ...... after this, If I select Debug, a part of the code will highlight:</p>
  <pre><code>  Set HTML_Content = CreateObject(&quot;htmlfile&quot;)
  </code></pre>
  <p>What's the problem?</p>