Excel VBA code object required error, os windows 10 ms excel 2010. But given code is working in os windows 11 ms excel 2010

im URL As String
    Dim ie As Object ' InternetExplorer
    Dim HTMLDoc As Object ' HTMLDocument
    Dim Table As Object ' HTMLTable
    Dim row As Object ' HTMLTableRow
    Dim cell As Object ' HTMLTableCell
    Dim i As Long, j As Long
    Dim ws As Worksheet
    Dim startRow As Long, startCol As Long
    
    ' Replace this URL with the website URL you want to scrape
    URL = "https://www.xxxxxaaaa.com"

    On Error Resume Next
    ' Replace the worksheet name with the name of the sheet you want to use
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' Replace the row and column number where you want to start writing the table data
    startRow = 1
    startCol = 1
    
    ' Create a new instance of InternetExplorer and navigate to the URL
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False ' Set to True if you want to see the browser window
    
    ie.navigate URL
    
    ' Wait for the page to load completely
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' Get the HTML document
    Set HTMLDoc = ie.document
    
    ' Find the table in the HTML document
    Set Table = HTMLDoc.getElementById("aktuella") ' Replace "table_id" with the actual ID of the table
    
    ' Check if the table exists
    If Not Table Is Nothing Then
        i = startRow
        
        ' Loop through each row in the table
        For Each row In Table.getElementsByTagName("tr")
            j = startCol
            
            ' Loop through each cell in the row
            For Each cell In row.getElementsByTagName("td")
                ' Check if the cell contains a hyperlink
                If cell.getElementsByTagName("a").Length > 0 Then
                    ' If the cell contains a hyperlink, write the hyperlink text and URL to the worksheet
                    ws.Cells(i, j).Value = cell.getElementsByTagName("a")(0).innerText
                    ws.Hyperlinks.Add Anchor:=ws.Cells(i, j), Address:=cell.getElementsByTagName("a")(0).href
                Else
                    ' If the cell does not contain a hyperlink, write the cell value to the worksheet
                    ws.Cells(i, j).Value = cell.innerText
                End If
                
                j = j + 1
            Next cell
            
            i = i + 1
        Next row
    Else
        MsgBox "Table not found on the page."
    End If
    
    ' Clean up
    ie.Quit