Hyperlinks to many Sheets within a Workbook

[hardeep]

Hi! Experts

I have Workbook which have 98 Sheets include a Sheet1!"UNIQUE LIST" Which have Names of the Sheets.

Now i want to insert Hyperlinks in the Sheet1!"UNIQUE LIST" to other Sheets.

Ex:

If i Click on A2(CZ001) it take me to Sheet!CZ001 . If i click on A78(WZ009) it take me to Sheet!WZ009 and so on.

I knew how to insert the Hyperlinks but i want any Formula or Code that will do me with in a Mintues.

MY Second Question is:

Say i Click on CZ001 it take me to Sheet!CZ001 and When i click on A1 of Sheet!CZ001 it take me to Sheet1!"UNIQUE LIST"

If i Click on WZ009 in Sheet1!"UNIQUE LIST" it take to me Sheet!WZ009, when i Click on A1 of Sheet!WZ009 it take me to Sheet!"UNIQUE LIST"

Is this Possible

Thanks in Advance

Hardeep Kanwar

[lucas]

http://www.vbaexpress.com/kb/getarticle.php?kb_id=16

http://www.vbaexpress.com/kb/getarticle.php?kb_id=120

[Simon Lloyd]

This should do what you need:
Sub Hyperlinks_Addition()
Dim i As Long
Dim Sh As Worksheet
For i = 1 To Sheets.Count
With ActiveSheet
'add hyperlink to list
If Sheets(i).Name = ActiveSheet.Name Then GoTo Nxt:
.Hyperlinks.Add Anchor:=.Range("A" & Rows.Count).End(xlUp) _
.Offset(1, 0), Address:="", SubAddress:=Sheets(i).Name & "!A1", _
TextToDisplay:=Sheets(i).Name
'add hyperlink to sheets
Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
Address:="", SubAddress:=.Name & "!A1", _
TextToDisplay:=ActiveSheet.Name
End With
Nxt:
Next
End Sub

[Aussiebear]

Hi hardeep,

If you decide to follow Lucas's advice and use the code available from the 1st KB entry, make sure you insert it into a module, then select the list of sheets before running the macro. It works well.

[hardeep]

Thanks to All

But i am looking Without a Code or Macro

Is There any Formula.

[Simon Lloyd]

Thanks to All

But i am looking Without a Code or Macro

Is There any Formula.You will have to do it all manually, using the toolbar INSERT>HYPERLINKS and do each sheet manually, however run my code once and its all done for you!

[hardeep]

You will have to do it all manually, using the toolbar INSERT>HYPERLINKS and do each sheet manually, however run my code once and its all done for you!

THANKS TO ALL:beerchug:

[Aussiebear]

Do you have Excel help installed with the version you are using hardeep?

[hardeep]

Do you have Excel help installed with the version you are using hardeep?


I can't Understand You Sir,

could you Pls Explain me what you are trying to ask from Me.

[Aussiebear]

I am at a loss to understand why you would come to a VBA forum but not want either a VBA or Macro answer to an issue which is readily available if you use the help section of your version of Excel.