In this video tutorial I will show you How to setup Excel script for: Copy Excel Hyperlink to Clipboard

Used script:

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.GoTo Reference:=Target.Range
Call CopyHyperlinkToClipboard(Target)
End Sub
Sub CopyHyperlinkToClipboard(Target)
Dim MyData As New DataObject
Row = Target.Range.Row
Column = Target.Range.Column
Chtoc = Cells(Row, Column).Value
MyData.SetText Chtoc
End Sub

Add New Reference (more info in the video):

Tools-References: c:\Windows\SysWOW64\FM20.DLL

Comments are closed