-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Copy Hyperlink to other cell
- Thread starter PRIMA
- Start date
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
Right click the Hyperlink and choose Copy. Right click the target cell and choose Paste.
Upvote
0
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
Try:
Code:
Sub Test()
Dim Rng As Range
Dim Cell As Range
With ActiveSheet
Set Rng = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
For Each Cell In Rng
With Cell
If .Hyperlinks.Count > 0 Then
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 1), Address:=.Hyperlinks(1).Address, TextToDisplay:=.Offset(0, 1).Value
End If
End With
Next Cell
End With
End Sub
Upvote
0
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
The macro worked for me. What do you actually have in column A on the active sheet?
Upvote
0
