Create a hyperlink with concatenate and copy to a different workbo

[akay71]

Hello All,
I am trying to create a hyperlink using concatenate after I get the
hyperlink created I need to copy the hyperlink to a different workbook. Is
this possible? Thanks.

 

[Joel]

Website = "http://example.microsoft.com"
Subdir = "/help"

set newbk = workbooks.open(filename:="c:\temp\abc.xls)

With newbk.Worksheets("Sheet1)
.Hyperlinks.Add .Range("E5"), Website & Subdir
End With

 

[akay71]

Thanks, Is there a way to just show text like "Click Here" for the link.

 

[Joel]

Use TextToDisplay

Website = "http://example.microsoft.com"
SubDir = "/help"

Set newbk = Workbooks.Open(Filename:="c:\temp\abc.xls")

With newbk.Worksheets("Sheet1")
.Hyperlinks.Add .Range("E5"), _
Address:=Website & SubDir, _
TextToDisplay:="joel"

End With