Objeto internetexplorer.application con excel 2010

Buenas a todos,

Soy nuevo en el foro, tengo el siguiente código que me funciona perfectamente en versiones anteriores a Excel 2010 (para hacer login en una página web, no puedo indicarla por razones de seguridad), sin embargo, soy incapaz de hacer que funcione para esta versión de office. Más concretamente me da error cuando entra en "ie.Document", ¿alguien me podría decir cómo hacer que funcione?

Código:

Private Sub WEB_Click()

Dim ie As Object

Dim login_name

Dim password

Set ie = CreateObject("InternetExplorer.Application")

With ie

.Navigate "**URL**"

.Visible = 1

Do While ie.Busy

Loop

End With

Do While ie.Busy

Loop

With ie.Document

DoEvents

Application.Wait Now + TimeValue("00:00:01")

.all("user").Value = Range("D1")

.all("password").Value = Range("D2")

Application.Wait Now + TimeValue("00:00:02")

End With

Set ie = Nothing

End Sub