Hi there

i have a workbook that has a table of contents leading to seperate
worksheets.

on this contents page there are 3 columns that have the names of these pages
in and update automaticly. however i've found that although on my home pc
the hyperlinks changed as the page names changed, the pc at work this dosnt
happen.

what i'd like is a macro that can look at each cell in ranges A5:A68,
F5:F68, and H5:H68 and change the hyperlink to link to the sheet named the
same as the value?

for example

in cell A5 on the page "INDEX" the cell says "example" i would like the
hyperlink to link to sheet "example" cell A12.

and so on for each cell in the 3 columns.

Many thanks in advance

Dave

On Jan 5, 9:44*am, "Diesel" <b...@secret.com> wrote:
> Hi there
>
> i have a workbook that has a table of contents leading to seperate
> worksheets.
>
> on this contents page there are 3 columns that have the names of these pages
> in and update automaticly. however i've found that although on my home pc
> the hyperlinks changed as the page names changed, the pc at work this dosnt
> happen.
>
> what i'd like is a macro that can look at each cell in ranges A5:A68,
> F5:F68, and H5:H68 and change the hyperlink to link to the sheet named the
> same as the value?
>
> for example
>
> in cell A5 on the page "INDEX" the cell says "example" i would like the
> hyperlink to link to sheet "example" cell A12.
>
> and so on for each cell in the 3 columns.
>
> Many thanks in advance
>
> Dave

Sub Hyperlinks
Dim i As String
Dim cell As Range
For Each cell In Range("A5:A68,F5:F68,H5:H68")
If cell.Value <> "" Then
cell.Select
i = Selection.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
i & "!A12", TextToDisplay:=i
End If
Next cell
End Sub

GTVT06, your a star.

Thank you

Dave


"GTVT06" <(E-Mail Removed)> wrote in message
news:597b4de0-2932-41e2-bff0-(E-Mail Removed)...
On Jan 5, 9:44 am, "Diesel" <b...@secret.com> wrote:
> Hi there
>
> i have a workbook that has a table of contents leading to seperate
> worksheets.
>
> on this contents page there are 3 columns that have the names of these
> pages
> in and update automaticly. however i've found that although on my home pc
> the hyperlinks changed as the page names changed, the pc at work this
> dosnt
> happen.
>
> what i'd like is a macro that can look at each cell in ranges A5:A68,
> F5:F68, and H5:H68 and change the hyperlink to link to the sheet named the
> same as the value?
>
> for example
>
> in cell A5 on the page "INDEX" the cell says "example" i would like the
> hyperlink to link to sheet "example" cell A12.
>
> and so on for each cell in the 3 columns.
>
> Many thanks in advance
>
> Dave

Sub Hyperlinks
Dim i As String
Dim cell As Range
For Each cell In Range("A5:A68,F5:F68,H5:H68")
If cell.Value <> "" Then
cell.Select
i = Selection.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
i & "!A12", TextToDisplay:=i
End If
Next cell
End Sub

On Jan 5, 11:38*am, "Diesel" <b...@secret.com> wrote:
> GTVT06, your a star.
>
> Thank you
>
> Dave
>
> "GTVT06" <gtv...@hotmail.com> wrote in message
>
> news:597b4de0-2932-41e2-bff0-(E-Mail Removed)...
> On Jan 5, 9:44 am, "Diesel" <b...@secret.com> wrote:
>
>
>
>
>
> > Hi there
>
> > i have a workbook that has a table of contents leading to seperate
> > worksheets.
>
> > on this contents page there are 3 columns that have the names of these
> > pages
> > in and update automaticly. however i've found that although on my home pc
> > the hyperlinks changed as the page names changed, the pc at work this
> > dosnt
> > happen.
>
> > what i'd like is a macro that can look at each cell in ranges A5:A68,
> > F5:F68, and H5:H68 and change the hyperlink to link to the sheet named the
> > same as the value?
>
> > for example
>
> > in cell A5 on the page "INDEX" the cell says "example" i would like the
> > hyperlink to link to sheet "example" cell A12.
>
> > and so on for each cell in the 3 columns.
>
> > Many thanks in advance
>
> > Dave
>
> Sub Hyperlinks
> *Dim i As String
> Dim cell As Range
> * * For Each cell In Range("A5:A68,F5:F68,H5:H68")
> * * If cell.Value <> "" Then
> * * cell.Select
> * * i = Selection.Value
> * * * * ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
> SubAddress:= _
> * * * * i & "!A12", TextToDisplay:=i
> * * End If
> * * Next cell
> End Sub- Hide quoted text -
>
> - Show quoted text -

Your Welcome. Gald I could help!