Hyperlink name based on value of a cell 2

[ADE6]

Hi,

I have the following code,created using the Excel macro recorder.

Is it possible to change the parts that refer to "HELP" so that it refers to cell H25, so that when I change the text within cell H25 and run the macro again it will create a new Hyperlink,called whatever text is displayed in cell H25.


Thanks for the ideas.

Ade

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "HELP!A1", TextToDisplay:="HELP"

Sub HYPERLINK()

    
    Range("F45").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "HELP!A1", TextToDisplay:="HELP"
    Range("F45").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = 5
    End With
    
End Sub

 

[PHV]

Perhaps this ?
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
[H25].Text & "!A1", TextToDisplay:=[H25].Text

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Rofeu]

Hi,

just refer to the range with the value you want to use:

Sub HYPERLINK()

    
    With ActiveSheet
	.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:= "HELP!A1", TextToDisplay:=.Range("H25").Value
   	With  .Range("F45").Font
   		.Bold = True
       		.Name = "Arial"
        		.Size = 12
       		.Strikethrough = False
        		.Superscript = False
       		.Subscript = False
        		.OutlineFont = False
        		.Shadow = False
        		.Underline = xlUnderlineStyleSingle
        		.ColorIndex = 5
    	End With
    End With
 
End Sub

Also, you don't need to select a cell first, you can apply these properties directly.

Cheers,

Roel