Using VBA to find cells that contain a hyperlink

Hello, I have a little bit of code that I need some assistance with. I am searching for all hyperlinks and I want to get every cell that contains a hyperlink I have the following that gives me...

excel

Macros and VBA

HansVogelaar

Mar 03, 2022

Gilgamesh1964

The Range property of a hyperlink represents the cell that contains the hyperlink.

    Dim LinkCount As Long
    Dim URL As String
    dim Rng as Range
    For LinkCount = 1 To ActiveSheet.Hyperlinks.Count
        URL = ActiveSheet.Hyperlinks(lngLinkCount).Address
        Set Rng = ActiveSheet.Hyperlinks(lngLinkCount).Range
        ' If you want to know the cell address, use Rng.Address
    Next LinkCount

HansVogelaar

MVP

Mar 03, 2022

Gilgamesh1964

The Range property of a hyperlink represents the cell that contains the hyperlink.

    Dim LinkCount As Long
    Dim URL As String
    dim Rng as Range
    For LinkCount = 1 To ActiveSheet.Hyperlinks.Count
        URL = ActiveSheet.Hyperlinks(lngLinkCount).Address
        Set Rng = ActiveSheet.Hyperlinks(lngLinkCount).Range
        ' If you want to know the cell address, use Rng.Address
    Next LinkCount

Gilgamesh1964

Brass Contributor

Mar 03, 2022

Thank You
Works great

Forum Discussion

Using VBA to find cells that contain a hyperlink

Resources