Sub Copy_Link()
Dim Txt As String
If ActiveCell.Column = Range("Clmn_Payee").Column And ActiveCell.Offset(0, 1) = "Y" Then
Txt = ActiveCell.Offset(0, 2).Value2
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Txt
.PutInClipboard
End With
MsgBox "Please Paste the Copied Link"
Else
MsgBox "Wrong Selection, Please Select Payee"
End If
End Sub