Sheet index create by VB in Ms Excel.

By Md.shaiful islam Talukder | 11:15 PM |
sheet index.
Sheet index is very nice ,helpful and time saving thing. when you any sheet insert this sheet auto insert index .In index specific sheet click go to specific sheet, again back to index click return in index fully this create by VB code .you use this and enjoy .
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
            l = l + 1
                With wSheet
                    .Range("A1").Name = "Start_" & wSheet.Index
                    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                    SubAddress:="Index", TextToDisplay:="Back to Index"
                End With
                Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
                SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
    Next wSheet
End Sub

'-----------------Md.Shaiful Islam Talukder----------------

0 comments :

Post a Comment

Top^