Hyperlinks

Thanks, Jacob.

Could you advise please:

(i) what qualifies as within the scope of the forum in terms of getting free support, and what does not; and

(ii) the rates at which work outside that scope would be chargeable.

Thanks,

tom

Hi Tom

This is the sub-routine I use to create an index of worksheets:

Sub ContentsSheet()

'This Creates a List of Worksheets, together with a Hyperlink to each one

Sheets("Index").Select
Range("A1").Select

Dim DoIt
Dim MySheetName

'ScreenUpdating = False

Range("A1").Select
'DoIt = MsgBox("Have you clicked in the cell where you want your contents list to start?", vbYesNo, "Create a contents list")

'If DoIt = vbYes Then
For I = 1 To Worksheets.Count
ActiveCell.Value = Worksheets(I).Name
ActiveCell.Offset(0, 1).Select

MySheetName = "'" & Worksheets(I).Name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=MySheetName

ActiveCell.FormulaR1C1 = Worksheets(I).Name
ActiveCell.Offset(1, -1).Select
Next I
'End If

Range("A1").Select

ScreenUpdating = True

End Sub

I use the following formula to enter the worksheet name into cell A1 on each sheet (but of course you could use this in any cel):
=RIGHT((CELL("filename",$A$1)),LEN(CELL("filename",$A$1))-FIND("]",(CELL("filename",$A$1))))

Please let me know if this is of any help to you.

I also use a couple of other sub-routines to sort the worksheets into alphabetical order and to place the 'Index' woksheet as 'Sheet 1' - the first sheet in the workbook.

Good Luck,

John