Help with Hhyperlinks

[hurley11b]

I have a workbook with about 450 tabs/sheets. In one of them I have the names of approx 400 of the sheets in a column. I need to make a hyperlink in each cell going down that links to the sheet in the workbook. I can do this one by one but am hoping there is a faster way to do it. On the master sheet, all names are in the order that they appear later on in the workbook.

 

[Gary McMaster]

If you right click on the "tab scrolling arrows" (usually to the left of the tabs themselves) you'll get a pop-up list of all the un-hidden sheets in the workbook. You can select from the list to activate any un-hidden sheet. Do you really need to duplicate this functionality with hyperlinks?

Gary

 

[texasalynn]

Welcome to MrExcel board....

try this

Option Explicit

Sub AddHyperlinks()
Dim LR As Long, i As Long, Txt As String

LR = Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To LR
        Txt = Mid(Cells(i, "A"), 10, InStr(Cells(i, "A"), ">") - 11)
        ActiveSheet.Hyperlinks.Add _
            Anchor:=Cells(i, "A"), _
            Address:=Txt, _
            ScreenTip:=Txt, _
            TextToDisplay:=Cells(i, "A").Text
    Next i

End Sub

 

[hurley11b]

Gary,

Yes I do.

Texas Lynn,

Thanks for the help but that is like an alien language to me?

I appreciate you trying