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.

List all selected hyperlinks with VBA code

Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari!

Save 50% of your time, and reduce thousands of mouse clicks for you every day!

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 button to run the code. And all of the hyperlinks will be displayed in a new worksheet called Hyperlink List. See screenshot:

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.

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:

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:

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

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

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.

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:

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:

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

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!

Read More Download Now Purchase

---

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!

Read More Download Now Purchase