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.

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" wrote:

> 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.
>

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

"Joel" wrote:

>
> 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" wrote:
>
> > 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.
> >

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



"akay71" wrote:

> Thanks, Is there a way to just show text like "Click Here" for the link.
>
> "Joel" wrote:
>
> >
> > 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" wrote:
> >
> > > 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.
> > >