stronsm, tks as usual!
my original code:
Private Sub TEST_OK()
Dim I As Long, TEXT As String, REQ As Object, DOC As Object, TABL As Object, TR As Object, LINK As Object, URL As String
Dim N As Integer
Set REQ = CreateObject("Msxml2.XMLHTTP")
Set DOC = CreateObject("htmlfile")...