Extract social websites|VBA & Macros|Excel Forum|My Online Training Hub

Sub GetWebPageLinks()
Dim appIE As Object, itm As Variant
Dim objCollection As Object
Dim i As Long, LastRow As Long
Dim sURL As String

LastRow = Range("A" & Rows.Count).End(xlUp).row

For i = 24 To LastRow
Set appIE = New InternetExplorer

sURL = Range("A" & i).Value
With appIE
.navigate sURL
.Visible = True
End With
On Error GoTo 1
Do While appIE.Busy Or appIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop

Set objCollection = appIE.document.getElementsByTagName("a")
For Each itm In objCollection
Debug.Print itm.innerText
Next itm
appIE.Quit
Set appIE = Nothing
2:
Next i
Exit Sub
1:
Resume 2
End Sub