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

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