What am I doing wrong?

[SteveT24]

I have a worksheet with 100 tabs, each tab is meant to break down bids for a specific trade. I have a summary sheet that displays top 2 bidders for each tab. I want to change the hyperlinks on the summary sheet to go to cell A1 for each tab. Why isn't this working?

When I execute, it changes the hyperlink to show Tab '99' for every row, but it should be starting at 1 and ending at 100.

Sub LinkSummaryToScope()

'Establish Loop Variable
Dim sheet As Integer
sheet = 1

Dim li As String
li = "'"

Dim nk As String
nk = "'!A1"

Dim link As String

'Select first cell with link
Range("B8").Select

'Begin Loop
For sheet = 1 To 100

'Select Hyperlink Cell
link = li + CStr(sheet) + nk
Selection.Hyperlinks(1).SubAddress = link
With Selection.Font
.Name = "Calibri"
.Size = 10
.Strikethrough = False
.Superscript = False
' .Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With

ActiveCell.Offset(1, 0).Select
Next sheet

End Sub

 

[footoo]

Create a Hyperlink Menu of Worksheets - VBA Code Examples

Create Hyperlink Index of All Worksheets in Workbook Let’s take the Macro to List all Sheets in a Workbook one step further and create a hyperlinked menu for each sheet in a workbook. This is a great time saver for someone that has many sheets and is trying to make a menu of hyperlinks to…

www.automateexcel.com

Create links to all sheets in a workbook programmatically

The macro demonstrated above creates hyperlinks to all worksheets in the current worksheet. You will then be able to quickly navigate to a particular work

www.get-digital-help.com