A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Hi RogerDotson
The first one was for a UDF which is basically an Excel Function that can be used in a Formula.
The below will allow for a look.
Sub GetFullURLLoop()
Dim hypLink As Hyperlink
Range("B2").Select
For Each hypLink In ActiveSheet.Hyperlinks
hypLink.Range.Offset(0, 1).Value = hypLink.Address
Next
End Sub
Change hypLink.Range.Offset(0, 1).Value = hypLink.Address value 1 to be how many cells to the right you want the result to go to.
Regards