Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

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

share|improve this question
1  
For whatever solution you find, there's a surprisingly odd feature in Office you might need to take into account: it first uses an Internet Explorer component (but is not identifying itself as Internet Explorer) to see if the URL one clicks is valid. After that, it hands the resulting URL to the default browser (or not, if the web site for some reason blocks the User Agent "Microsoft Office Existence Discovery"). Details at superuser.com/questions/41935/… –  Arjan Oct 22 '09 at 16:06

2 Answers 2

up vote 0 down vote accepted
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

share|improve this answer

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

share|improve this answer
    
This doesn't work, the range will be D237 to D337 –  admintech Oct 22 '09 at 15:21

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.