VBA Hyperlink Debugging

[Peteor]

Hey everyone. I am currently working on Debugging a code that has worked wonders for me for the last 10 years. Here is my code:

1 Worksheets(1).Select
2 R = Range("A65536").End(xlUp).Row
3 For Each Cell In Range("A2:A" & R)
4 Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
5 Next Cell
6 CopyTargetBookmark = 1
7 For Each Workbook In Application.Workbooks

It is getting hung up on line 4 with a run-time error 9 "Subscript is out of range". ANY input would be invaluable.

Thank you,
Peter

 

[John_w]

Try changing the Follow line to:

        If Cell.Hyperlinks.Count > 0 Then Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False

 

[Peteor]

You are a gentleman and a scholar. Worked like a charm. Never thought to try an If Then structure.

 

[Peteor]

So I have found what has been causing my problem.

What this code does:
It takes information from LOTS of workbooks, and concatenates the useful information into 1 workbook (it is much longer than shown above).

The Problem:
Either via a bug or deliberate implementation, Microsoft has decided the "Cell.Hyperlinks(1).Follow" function should not work for code generated hyperlinks. It does work for manually generated hyperlinks. It even works if I decide to use F8 and step through my code "manually".

The Question:
Is there a work around or subroutine anyone knows of or has written that circumvents the problem? I.E. Is there a way to automatically open code generated hyperlinks other than the "Cell.Hyperlinks(1).Follow" function?