hai Clarence Rikoemahoe,
Option Explicit
Sub blablabla()
Dim wSheet As Worksheet
Dim lCount As Long
lCount = 1
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
lCount = lCount + 1
Me.Hyperlinks.Add Anchor:=Me.Cells(lCount, 1), Address:="",
SubAddress:= _
"Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub
--- In XL-mania@yahoogroups.com, Clarence Rikoemahoe
<clarence...@...> wrote:
>
> Selamat sore semua.
> Saya ada pertanyaan mengenai Hyperlink.
>
> Apabila kita membuat hyperlink dari sebuah file memang gampang dan
terasa
> mudah. Tetapi pertanyaan saya adalah bagaimana cara membuat
hyperlink di
> dalam sebuah file yang kita link tetapi menunjuk kedalam sebuah
sheet
> tertentu.
>
> Contohnya:
> Didalam file excel awal yang saya buat terdapat beberapa sheet. Nah
di file
> lain saya ingin membuat laporan mengenai file yang terdapat di file
excel
> awal tetapi di dalam sheet 5.
>
> Apakah ada cara yang lebih mudah?
>
> Terima kasih atas bantuannya.
>
