Dim MYH As Excel.Hyperlink
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim ct As Long
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("d:\marvel.xls")
Set mysheet = MyWo.Worksheets("Лист1")  ' само собой
 
For ct =  1  To  1000   ' первая 1000 строк
 
  For Each MYH In mysheet.Cells(ct,  2 ).Hyperlinks  ' столбец 2 - обычно B
 
    Debug.Print ct; "--->"; MYH.Name; "  "; MYH.Address
  Next MYH
Next ct
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing