Look in Excel (not VBA) help at the hyperlink worksheetfunction. You could
have your macro add this in the next cell, keying off the sheetname.

--
Regards,
Tom Ogilvy

"lior03 " wrote in message
...
hello
i have a macro that give a list of all sheett name in a workbook
how can i add a clickable link to the code so every time i click on a
sheet name it jump to it
moshe
my code
Sub sheetret()
Application.ScreenUpdating = False
Dim shtsNumber, sh As Integer
shtsNumber = Sheets.Count
ActiveCell.Select
ActiveCell.FormulaR1C1 = "sheet list"
ActiveCell.Font.ColorIndex = 3
ActiveCell.Offset(1, 0).Activate
For sh = 1 To shtsNumber
ActiveCell.Offset(sh - 1, 0).Value = Sheets(sh).Name
Next sh
With selection.Font
Italic = True
Bold = True
End With
boldera
SortWorksheets
fifts
Application.ScreenUpdating = True
End Sub


---
Message posted from http://www.ExcelForum.com/