Microsoft Office Forums - View Single Post - [Solved] Error when hyperlinking Excel cells to worksheets based on the cell values for sheets whose name in

soroush.kalantari · 08-01-2023, 11:01 PM

Quote:

Originally Posted by p45cal

Change to:

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Selection.Value & "'!A1"

but you could try this instead:

Code:

Sub FShyeperlink()
Dim cll As Range
'On Error Resume Next' only use this if you need it.
For Each cll In Selection.Cells
  cll.Hyperlinks.Delete
  cll.Parent.Hyperlinks.Add Anchor:=cll, Address:="", SubAddress:="'" & cll.Value & "'!A1"
Next cll
End Sub

Thank you very much. Your reply solved the problem and learned me some new things about making my codes more concise and optimum.