Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to quickly list all hyperlinks in Excel?

When we use a worksheet, maybe we create many hyperlinks in it, and sometimes we need to know where the texts link to. If you click them one by one, it will be tedious and time-consuming. If we can list all hyperlinks with texts and hyperlinks addresses in a worksheet, it will be easy for us to check all the hyperlinks in Excel.

List all selected hyperlinks with VBA code

Extract all actual addresses from hyperlinks with Kutools for Excel

Remove all hyperlinks from a selection / worksheet / workbook with Kutools for Excel


Extract real addresses from hyperlinks:

With Kutools for Excel’s Convert Hyperlinks, you can quickly extract real URL addresses from hyperlinked cells at once.

doc extract address from hyperlinks


arrow blue right bubble List all selected hyperlinks with VBA code


1. Select the range which contanis the hyperlinks that you want to list.

2. Click Developer>Visual Basic, a new Microsoft Visual Basic for applications window will be displayed, click Insert>Module, and input the following code into the Module:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. Then click doc-multiply-calculation-3 button to run the code. And all of the hyperlinks will be displayed in a new worksheet called Hyperlink List. See screenshot:

doc-list-all-hyperlinks


arrow blue right bubble Extract all actual addresses from hyperlinks with Kutools for Excel

With the Kutools for Excel’s Convert Hyperlinks feature, you can quickly extract the real addresses from the hyperlinks.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now )

1. Select the hyperlinks that you want to extract the real destinations.

2. Then click Kutools > Link > Convert Hyperlinks, see screenshot:

doc-list-all-hyperlinks

3. In the Convert Hyperlinks dialog box, select Hyperlinks addresses replace cell contents option from the Convert type section, and then specify a cell where you want to put the result under the Result range section, see screenshot:

doc-list-all-hyperlinks

4. Then click OK button, all the real addresses have been extracted from the hyperlinks, see screenshot:

doc-list-all-hyperlinks

Note: Convert source range: the extracted results will be located on the original cell range if you check this option.

Click to know more about this Convert Hyperlinks utility.

Free Download Kutools for Excel Now


arrow blue right bubble Remove all hyperlinks from a selection / worksheet / workbook with Kutools for Excel

If you want to remove all hyperlinks from the worksheet or workbook, the Delete Hyperlinks feature of Kutools for Excel may also can help you.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

If you have installed Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now )

1. Click Kutools > Link > Delete Hyperlinks, see screenshot:

doc-list-all-hyperlinks

2. Then specify the scope of the hyperlinks that you want to remove, you can remove them from a range, a worksheet, multiple selected sheets and a whole workbook.

3. In this case, I will delete the hyperlinks in a worksheet, and a prompt box will pop out, see screenshot:

doc-list-all-hyperlinks

4. Then click Yes button, all hyperlinks in current worksheet will be removed at once.

Click to know more about this Delete Hyperlinks feature.

Free Download Kutools for Excel Now


Related Article:

How to quickly delete all hyperlinks in Excel?


Excel Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 80% Excel problems.

  • Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  • Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  • Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  • Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  • No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  • Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  • 60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  • Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 3 years ago
    seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
  • To post as a guest, your comment is unpublished.
    Kurt · 4 years ago
    This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 4 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 5 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 5 years ago
    this is a treasure!!!
    thank you