Main Area and Open Discussion > General Software Discussion

Utilities for an excel book

<< < (2/4) > >>

Target:
if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing


--- ---Sub addlinks()
Dim rowno As Integer, i As Integer
rowno = 2

Worksheets.Add before:=Sheets(1)

For i = 2 To Worksheets.Count
    Sheets(1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(rowno, 2), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    rowno = rowno + 1
Next i

End Sub

TaoPhoenix:
if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing
-Target (March 04, 2014, 07:14 PM)
--- End quote ---

Maybe, but as I begin to understand Contro, he's the kind of fella who wants a lot of cool new tricks. For him I'd recommend the Utilities because if he pokes around he might find answers to random things he hasn't asked us yet.

Target:
so you're heading him off at the pass? ;D ;D ;D

TaoPhoenix:
so you're heading him off at the pass? ;D ;D ;D
-Target (March 04, 2014, 07:59 PM)
--- End quote ---

Just a little! : )

Contro:
if you don't want the overhead of a(nother) addin here's a bit of vba code that will do the same thing


--- ---Sub addlinks()
Dim rowno As Integer, i As Integer
rowno = 2

Worksheets.Add before:=Sheets(1)

For i = 2 To Worksheets.Count
    Sheets(1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(rowno, 2), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    rowno = rowno + 1
Next i

End Sub
-Target (March 04, 2014, 07:14 PM)
--- End quote ---

work very well.
 ;D

Navigation

[0] Message Index

[#] Next page

[*] Previous page