Sub Main()
    XMLToSheet "http://www.somesite.com/xmlinfo.xml"
End Sub
Sub XMLToSheet(ByVal URL As String)
Dim aktarilan
aktarilan = 0
Set objXSLSource = CreateObject("Microsoft.XMLDOM")
objXSLSource.async = False
objXSLSource.Load URL
Set Cn = objXSLSource.childNodes
If Cn.Length > 0 Then
    Cells.Select
    Selection.ClearContents
    Cells(1, 1).Select
End If
For i = 1 To Cn.Length
    Set RootNode = Cn.NextNode
    If UCase(Trim(RootNode.NodeName)) = "ROOT" Then
        aktarilan = XNLNodeToSheet(RootNode)
        MsgBox (URL & "Adresinden " & aktarilan & " Satır Aktarıldı")
        Exit Sub
    End If
Next i
MsgBox ("Dikkat!!!! " & URL & "Adresinden Aktarılamadığı için Mevcut Satırlar Silinmedi!!!")
End Sub
Function XMLNodeToSheet(ByVal RootNode As Object)
solmarj = 0
topmarj = 2
XMLNodeToSheet = 0
Set CnRoot = RootNode.childNodes
XMLNodeToSheet = CnRoot.Length
For i = 1 To CnRoot.Length
    Set ItemNode = CnRoot.NextNode
    Set AttributeMap = ItemNode.Attributes
    For j = 1 To AttributeMap.Length
        Set AttributeNode = AttributeMap.NextNode
        If i = 1 Then Cells(topmarj + 1, j + solmarj) = AttributeNode.NodeName
        Cells(topmarj + i + 1, j + solmarj) = AttributeNode.NodeValue
    Next j
Next i
End Function