Runtime error 1004 Application defined sorunu

[Mehdi2021#]

Sub umico()

Dim i, sonsat As Integer
Dim url As String



Dim XML As New MSXML2.XMLHTTP60
Dim HTMLdoc As New MSHTML.HTMLDocument


sonsat = Sheets("Veri").Range("A10000").End(xtUp).Row



For i = 3 To sonsat
On Error Resume Next

url = Sheets("Veri").Range("A" & i)

XMLreq.Open "GET", url, False
XMLreq.send

If XMLreq.Status <> 200 Then

MsgBox "Melumat tapilmadi"

Exit Sub


End If

HTMLdoc.body.innerHTML = XMLreq.responseText

Debug.Print

başlattığımda 1004 hatasi alıyorum

 

[Necdet]

Merhaba,
Pek ilgilendiğim ve bildiğim konu değil ama
XMLreq diye bir komut göremedim XML.Open ve XMLreq.Send yerine XML.Send ve yine XMLreq.Status yerine XML.Status kullanmanız gerekiyor gibi.