Membuat Hyperlink antar Sheets - Belajar VBA Excel

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

 Unduh File contoh file exlsm >>>>>   Hyperlink antar sheets

 Silahkan dikembangkan semoga bermanfaat !!!