Skip to content

Instantly share code, notes, and snippets.

@ctrl-freak

ctrl-freak/ExtractHL.vbs

Created May 22, 2017 00:20
Show Gist options
  • Save ctrl-freak/6b513f4e76b297190985a3dc571c7e15 to your computer and use it in GitHub Desktop.
Save ctrl-freak/6b513f4e76b297190985a3dc571c7e15 to your computer and use it in GitHub Desktop.
Download ZIP
Extract URLs from Hyperlinked cells in Excel
Raw
ExtractHL.vbs
'http://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment