How can I create a hyperlink using VBA and Windows navigation?
I would like to create a hyperlink, say in cell A1, by running a macro that opens a Windows navigation panel.
In principle it would be exactly like right clicking a cell and clicking the hyperlink option.
I would like the macro to specify the cell that the hyperlink would be added to.
In principle it would be exactly like right clicking a cell and clicking the hyperlink option.
I would like the macro to specify the cell that the hyperlink would be added to.
Hi,
Something like this:
Create-Hyper-Link.xlsm
Something like this:
Sub CreateHyperLink()
Dim Ws As Worksheet
Dim Rng As Range
Set Ws = Worksheets("Sheet1")
Set Rng = Ws.Range("A1")
Rng.Parent.Hyperlinks.Add Anchor:=Rng, Address:="", SubAddress:="Sheet1!A5", TextToDisplay:="Click Here to go to A5"
With Rng.Font
.ColorIndex = xlAutomatic
.Underline = xlUnderlineStyleNone
End With
With Rng.Characters(Start:=21, Length:=2).Font
.Underline = xlUnderlineStyleSingle
.Color = -4165632
End With
End Sub
Create-Hyper-Link.xlsm
Operations Director
Thanks Shuns. I can see that will add a hyperlink according to the hard coding. However I want to click on a button ...open a navigation pane ...navigate to a file click on the file and create a link in a cell designated by the code.