Hyperling antar sheet

Membuat tombol hyperling dibanyak sheet cukup memakan

 waktu kode ini sangat membantu dengan hyperling otomatis 

sebanyak sheet yang ada di wookbook

Private Sub ListBox1_Click()

For k = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(k) Then

        Sheets(ListBox1.List(k)).Select

        Sheets(ListBox1.List(k)).Cells.SpecialCells(xlLastCell).Select

        Range(Selection, Cells(1, 1)).Select

   End If

Next

End Sub

Private Sub UserForm_Initialize()

 For k = 1 To Sheets.Count

        ListBox1.AddItem Sheets(k).Name

    Next

    End Sub