Keep leading zero on Hyperlinks

[Djro69]

Hi - using this code, is there a way to keep the leading zero on e.g. a worksheet called 090000 so the hyperlink is 090000 and not just 90000.

Many thanks in advance.

 

[Djro69]

Sub Test()

Dim mySheet As Worksheet, myRow As Long
With Sheets("Summary")
.Range("A:A").Clear
myRow = 3
For Each mySheet In ActiveWorkbook.Worksheets
If mySheet.Name <> "Summary" Then
.Hyperlinks.Add Anchor:=.Cells(myRow, 1), Address:="", SubAddress:= _
"'" & mySheet.Name & "'!A1", TextToDisplay:=mySheet.Name
myRow = myRow + 1
End If
Next mySheet
End With
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

If mySheet.Name <> "Summary" Then
   .Hyperlinks.Add Anchor:=.Cells(myRow, 1), Address:="", SubAddress:= _
   "'" & mySheet.Name & "'!A1", TextToDisplay:="'" & mySheet.Name
   myRow = myRow + 1
End If

 

[Djro69]

Perfect - many thanks for the welcome and the code - worked a treat.

 

[Fluff]

Glad to help & thanks for the feedback.