Macro to open excel hyperlinks

Question

I would like to know if anyone can help me do a macro to open a list of hyper links.

I have a list of about 600 hyper links all in a column in separate rows, i have to open each one to see if the link works, yet it is boring and tedious as i have to wait sometimes for excel to catch up i would much rather leave it doing 100 at a time while i do other things

Answer 1

Sub FollowLinks()

 Dim c As Range

 For Each c In Range(Cells(1, 3), Cells(1, 3).End(xlDown))
  If c <> vbNullString Then
   ThisWorkbook.FollowHyperlink (c.Offset(, 1).Value)
  End If
 Next
End Sub

Source

Answer 2

If you automate Internet Explorer, you may be able to print the browser window from within Excel. You'll need to set a reference to Microsoft Internet Controls . Here's an example:

Sub printweb()

Dim ie As InternetExplorer

Set ie = New InternetExplorer

ie.Visible = True

ie.Navigate Range("A1").Value 'A1 holds the URL

Do
DoEvents
Loop Until ie.ReadyState = READYSTATE_COMPLETE

'This prints it
ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

End Sub

Source