VBA - Internet Explorer 'GoBack' method fails

[chiekode]

Hello,

I'm trying get a simple program to run, where I navigate to a certain website in Internet Explorer, go home and then just go back to previous page.

The code:

Sub testsub()

    my_url = "http://www.google.de"
    Set ie = CreateObject("InternetExplorer.Application")
   
    With ie
        .Visible = True
        .navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400
    End With

    Do Until Not ie.Busy
        DoEvents
    Loop

    'wait
    For i = 0 To 500000000
    Next i

    ie.GoHome
    
    'wait
    For i = 0 To 500000000
    Next i

    ie.GoBack

End Sub

The strange thing is, it works in debug mode (single-step) but not in normal mode. I keep getting the error like: "method GoBack of object 'iwebbrowser2' failed"
My poor waiting-loops are working (they wait a few seconds)

Any ideas?

Thank you!

 

[mole999]

are you sure its not related to updates from ms that prevent vulnerable actions occuring

 

[chiekode]

are you sure its not related to updates from ms that prevent vulnerable actions occuring

No I'm not, how would I figure that out?

 

[John_w]

Try adding the busy wait loop after the GoHome.

 

[chiekode]

I've added

    Do While ie.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

after GoHome. Doesn't work either, the state is stuck at "READYSTATE_LOADING" the whole time