ie fireevent

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_MAXIMIZE = 3
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const READYSTATE_COMPLETE = 4

Sub LoadPage()
    Dim IE As Object
    Dim lst As Object
    Dim evt As Object
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    apiShowWindow IE.hwnd, SW_SHOWNORMAL
    Sleep lng_Sleep
    IE.Navigate "https://www.avanza.se/aktier/lista"
   
    Sleep 5000

    Do
        DoEvents
        Sleep 500
    Loop While IE.readyState <> READYSTATE_COMPLETE
   
    Set evt = IE.document.createEvent("HTMLEvents")

    evt.initEvent "change", True, False

    Set lst = IE.document.getElementById("list")
   
    lst.selectedIndex = 1

    lst.dispatchEvent evt
   
End Sub