
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ MyLink, _ |
Private Sub Rilinkare_Click()
Dim MyLink As String
Dim Ur As Integer
Dim CL As Variant
Ur = Cells(65536, 2).End(xlUp).Row
For Each CL In Range(Cells(1, 2), Cells(Ur, 2))
If CL.Hyperlinks.Count > 0 Then
CL.Select
MyLink = Range("T" & CL.Row).Value
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
MyLink
End If
Next
End Sub
|
