Opening multiple hyperlinks in order from Excel

[Onebracketshort]

Have 3,000 odd hyperlinks in an Excel sheet that I would like to open in chrome so I can view the data on each page.

The cells are opening in chrome but in a random order when I run this VBA module:

Sub OpenHyperLinks()
'Update 20141124
Dim xHyperlink As Hyperlink
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each xHyperlink In WorkRng.Hyperlinks
xHyperlink.Follow
Next
End Sub


Disclaimer: I didnt write this code I took it from a web article.

It almost does the job but I really could do with the pages opening in the descending order they appear in their Excel column.

Is there an edit to this module that would effect this change?

Thanks for taking a look

 

[AlphaFrog]

Sub OpenHyperLinks()
'Update 20141124 (modified)
    'Dim xHyperlink As Hyperlink
    Dim WorkRng   As Range, cell As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each cell In WorkRng.Cells
        cell.Hyperlinks(1).Follow
    Next
End Sub

 

[Onebracketshort]

worked perfectly first time AlphaFrog. great stuff, thank you.