Thanks Ron, Thanks KeepITcool,
I will give these ideas a try.








"keepitcool" wrote in message
...
OnLiner..

you may have to adjust positioning but try following:

Sub AddIndex()
Dim i%
With Worksheets(1)
For i = 2 To Worksheets.Count
.Hyperlinks.Add _
Anchor:=.Cells(3 + i, 2), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next
End With
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"onliner" wrote:

Using Excel 97; Win2K

I'm looking for a way via VBA to add a hyperlink to my "summary"
worksheet each time I add a newly named worksheet which gets its name
from a cell value.
In other words, if I have in D6 thru D9,
MySheet1
MySheet2
MySheet3
MySheet4
and then add MySheet to cell D10, have some code that adds a hyperlink
in Cell D10 that takes me to MySheet5.
Is this possible?
Thanks.