Excel VBA SHELL function does not work anymore

hi,

I've got the same problem. I tryed your solution but the problem is the same. Before using the script, I open an application which opens 3 differents windows. I need to research the windows that I need to reload this page with new information.This is my script which work fine with W98:

Dim winShell As New ShellWindows

Dim IE6 As InternetExplorer

Dim IE8 As InternetExplorer

Dim IE9 As InternetExplorer

Set IE6 = CreateObject("InternetExplorer.Application")

For Each IE6 In winShell

    If IE6.LocationURL = page Then

        IE6.navigate ("https://xxxxxxxxxxx")

    End If

Next IE6

Now I've got an message "erreur execution70" permission refusée

Can you help me?

Thanks