I got an Excel with a list of of URL's and i need them to be Hyperlink all of them. For that, i use this code:
Do Until ActiveCell.Value = ""
ActiveCell.Hyperlinks.Add Selection, ActiveCell.Value, , , ActiveCell.Value
This works for me because my list of URL start in cell A1. Hope you can adapt this code to your needs.
Hope it helps.