Import html source of url list in each cell

[Sergio Alfaro Lloret]

any new here? thanks!

[bakerman]

Sub Test()
    For Each cl In Sheets("Hoja1").Range(Range("E2"), Range("E" & Rows.Count).End(xlUp))
        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", cl.Value, False
            .Send
            cl.Offset(, 1) = .ResponseText
        End With
    Next
End Sub