Scraping Head and Title from HTML for List of URls

[skaisdead22]

I have a list of Flickr URLs located in column A of my workbook. I need to obtain the Title of each page automatically. I found the following code but I think I need to change the application to perform this in google chrome. Can anyone take a look at let me know there thoughts? Happy to provided additional context if that would help

Sub get_title_header()
Dim wb As Object
Dim doc As Object
Dim sURL As String
Dim lastrow As Long
lastrow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastrow
Set wb = CreateObject("internetExplorer.Application")
sURL = Cells(i, 1)

wb.navigate sURL
wb.Visable = False

While wb.Busy
DoEvents
Wend

'HTML document
Set doc = wb.document

Cells(i, 2) = doc.Title

On Error GoTo err_clear
Cells(i, 3) = doc.GetElementsByTagName("h1")(0).innerText
err_clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
wb.Quit
Range(Cells(i, 1), Cells(i, 3)).Columns.AutoFit
Next i

End Sub

 

[skaisdead22]

I think you need to define a chromePath from your location machine but I am not entirely sure how to do this utilizing shell or some other feature.