Sub GetIE()
  
  Dim shellWins As ShellWindows
  Dim IE As InternetExplorer
  Dim HL As Hyperlink
  Set shellWins = New ShellWindows
  
  'If shellWins.Count > 0 Then
    ' Get IE
    'Set IE = shellWins.Item(0)
  'Else
    ' Create IE
    Set IE = New InternetExplorer
    IE.Visible = True
  'End If
  vAddr = ActiveCell.Hyperlinks(1).Address
  IE.Navigate vAddr
  While IE.Busy
DoEvents
Wend
With ActiveSheets
     Range("K1").Select
    
        IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
        IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
  .Paste
    End With
  IE.Quit
  Set IE = Nothing
  Set shellWins = Nothing

End Sub


The code stops at this line: IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
Do what I did wrong?

Thank you!