Solved Hyper linking in multiple tabs

March 14, 2013 at 11:14:42
Specs: Windows
I have a spread sheet with 200 + tabs the word totals: is on every page I want this word to hyperlink to the summary page s there a quick way to do this ?

See More: Hyper linking in multiple tabs

Report •

March 14, 2013 at 13:36:13
✔ Best Answer
Try this is a backup copy of your workbook:

Sub CreateHyperlinks()

'Loop through Sheets 2 through last
   For shts = 2 To Sheets.Count
'Find the cell with "totals:"
     With Sheets(shts).Cells
       Set t = .Find("totals:")
'If found, create link to Sheet1!A1
        If Not t Is Nothing Then
           Sheets(shts).Range(t.Address).Hyperlinks.Add Anchor:=t, _
           Address:="", SubAddress:="Sheet1!A1", TextToDisplay:="Totals:"
        End If
     End With
End Sub

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

Report •
Related Solutions

Ask Question