Hello all.
I'm fairly new to VBA and completely new to this forum
Hoping to get some help to finalize a hyperlink code;
The aim is to hyperlink each cell in a specific range on in my worksheet, to the sheet with the cell value name.
I read quite some threads already on the topic and it got me as far as successfully linking the first cell within the range to the correct sheet!!
Now I'm stuck at repeating the hyperlink code to remaining cells.
---
My code:
Sub Hyperlink()
Dim Cell As Range
Sheets("Bank Coverage").Range("C38:C120").Select
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Cell <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="'" & ActiveCell.Value & "'!A1"
End If
Next
End Sub
---
Could one of you kind folks help me understand what I need to do to apply the hyperlink for remaining cells in range C38:C120, please?
Suspecting it's something with the range selection in my ActiveSheet.UsedRange part of the code?
Unfortunately, I cannot share the Excel file with the code at the moment.
Thank you!
Charlotte
Bookmarks