Hyperlink

[Jonbob]

I have the the sheet name "W-vanessa" in cell b12. How can I add a hyperlink by referencing the cell as opposed to the name itself?

sub hyper()
range("b12").activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'W-vanessa'!A1", TextToDisplay:="W-vanessa"
end sub

Something along the line of changing "W-vanessa" in the code above with activecell.text

thanks,
jonbob

 

[Scott Huish]

Perhaps:

Sub hyper()
Range("B12").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & ActiveCell.Text & "'!A1", TextToDisplay:="W-vanessa"
End Sub