How to Add Hyperlink to Cell Value in Excel Using VBA (4 Methods)

Method 1 – Embed VBA to Add Hyperlink from a Different Worksheet to a Cell Value in the Active Sheet

Let’s consider the following dataset: In our workbook, we have the value “Click here to go to Sheet2” in Cell B5 of Sheet1. We’ll learn how to use VBA code to add a link to Sheet2 within the cell value of B5 in Sheet1.

• First, press Alt + F11 on your keyboard or go to the Developer tab and select Visual Basic to open the Visual Basic Editor.

• In the code window that pops up, click Insert and select Module from the menu bar.

• Copy the following code and paste it into the code window:

Sub HyperlinkAnotherSheet()
Worksheets("Sheet1").Select
Range("B5").Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Sheet2'!A1"
End Sub

• Press F5 on your keyboard or select Run and click on Run Sub/UserForm from the menu bar. Alternatively, click the small Run icon in the sub-menu bar to execute the macro.

After successful execution, the cell value of B5 in Sheet1 will be linked to worksheet Sheet2. To verify whether the link works, click on the link.

Sub HyperlinkAnotherSheet()

Worksheets("Sheet1").Select

Range("B5").Select

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Sheet2'!A1"

End Sub

Read More: How to Get Hyperlink from an Excel Cell with VBA

Method 2 – Apply Macro to Add Hyperlink from Multiple Worksheets to Multiple Cell Values in Active Sheet

In this section, we’ll learn how to hyperlink multiple worksheets to various cell values in the active worksheet using VBA. Let’s look at the dataset below. We want to link values in Cells B5, B6, and B7 of worksheet Sheet3 to worksheets Sheet1, Sheet2, and Sheet3, respectively.

• Open the Visual Basic Editor from the Developer tab and Insert a new Module in the code window.
• Copy the following code and paste it into the module:

Sub HyperlinkMultipleSheets()
Dim iSheet As Worksheet
Worksheets("Sheet3").Select
Range("B5").Select
For Each iSheet In ActiveWorkbook.Worksheets
    ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & iSheet.Name & "!A1" & "", ScreenTip:=""
    ActiveCell.Offset(1, 0).Select
Next iSheet
End Sub

• Execute the macro as shown in the previous section. The result is displayed in the image below:

To verify whether the links work, click on the links created in Cells B5, B6, and B7 of worksheet Sheet3. Each link will take you to the corresponding worksheets (Sheet1, Sheet2, and Sheet3).

Sub HyperlinkMultipleSheets()

Dim iSheet As Worksheet

Worksheets("Sheet3").Select

Range("B5").Select

For Each iSheet In ActiveWorkbook.Worksheets
    ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & iSheet.Name & "!A1" & "", ScreenTip:=""
    ActiveCell.Offset(1, 0).Select
Next iSheet

End Sub

Read More: Excel VBA: Open Hyperlink in Chrome

Method 3 – Implement VBA to Insert a Value in a Cell and Add a Hyperlink Automatically in Excel

Wouldn’t it be interesting if you could automatically insert hyperlinks into cell values when you add specific words? Let’s explore how to achieve this using a VBA macro in Excel.

• Open your Excel workbook and navigate to Sheet7.
• Right-click on the sheet and select View Code from the list of options.

• Insert the following code directly into the code window under the specified sheet (not in any module):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If LCase(Left(Target.Value, 20)) <> "exceldemy" Then Exit Sub
    Application.EnableEvents = False
    Target.Formula = "=HYPERLINK(""https://www.exceldemy.com/" & Target.Value & """,""" & Target.Value & """)"
    Application.EnableEvents = True
End Sub

• Don’t run this code, save it.

If you look at the code, you will see:

• In the 3rd line of the macro, we declare range B1:B10.
• In the 4th line of the code, we wrote the word “exceldemy”.
• We provided the link to the ExcelDemy website one line later.

This whole process means that every time you enter the word “exceldemy” in the range B1:B10 of your dataset, the word “exceldemy” will be automatically linked to the ExcelDemy website.

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
If LCase(Left(Target.Value, 20)) <> "exceldemy" Then Exit Sub

Application.EnableEvents = False

Target.Formula = "=HYPERLINK(""https://www.exceldemy.com/" & Target.Value & """,""" & Target.Value & """)"

Application.EnableEvents = True

Method 4 – Embedding a VBA Macro to Add a Hyperlink to Cell Values by Selection in Excel

In this method, we’ll explore how to link a specific cell value to a website (in this case, the ExcelDemy website) by selecting the cell after executing a VBA code. Let’s walk through the steps:

• Open your Excel workbook and locate Sheet8.
• Open Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Copy the following code and paste it into the code window:

Option Explicit
Sub HyperlinkWebsite()
Dim iRange As Range
On Error Resume Next
Set iRange = Application.Selection
Set iRange = Application.InputBox("Select Range to Add Link", "Range", iRange.Address, Type:=8)
Dim i As Long
Dim iLink As String
For i = iRange.Rows.Count To 1 Step -1
  If iRange.Cells(i, 1).Value <> "" Then
    iLink = "https://www.exceldemy.com/" & CStr(iRange.Cells(i, 1).Value)
      iRange.Cells(i, 1).Hyperlinks.Add Anchor:=iRange.Cells(i, 1), Address:=iLink, TextToDisplay:=CStr(iRange.Cells(i, 1).Value)
   End If
  Next
End Sub

• Run the code.
• In the pop-up window, select Cell B5.
• Press OK.

Cell B5 will be linked to the link that you provided in the code.

Option Explicit

Sub HyperlinkWebsite()

Dim iRange As Range

On Error Resume Next

Set iRange = Application.Selection
Set iRange = Application.InputBox("Select Range to Add Link", "Range", iRange.Address, Type:=8)

Dim i As Long
Dim iLink As String

For i = iRange.Rows.Count To 1 Step -1

If iRange.Cells(i, 1).Value <> "" Then
  iLink = "https://www.exceldemy.com/" & CStr(iRange.Cells(i, 1).Value)
  iRange.Cells(i, 1).Hyperlinks.Add Anchor:=iRange.Cells(i, 1), Address:=iLink, TextToDisplay:=CStr(iRange.Cells(i, 1).Value)

End If

Next

End Sub

Read More: Excel VBA: Add Hyperlink to Cell in Another Sheet

Download Workbook

You can download the practice workbook from here: