Sn:caykamumi
Ana sayfadan çalışan bir Userfaormda sayfa isimlerini listeletip istediğin sayfaya gidebilirsiniz.Formda arama yaparsanız bu konu ile bircok örnek var.

Private Sub ListBox1_Click()

 

 Label1.Caption = UCase(ListBox1.Value)

End Sub

'

Private Sub UserForm_Initialize()

Dim i As Integer

 Dim j As Integer

 Label1.Caption = ""

 If Worksheets.Count = 1 Then Exit Sub

 For i = 1 To Worksheets.Count

 Sheets(i).Name = LCase(Sheets(i).Name)

 For j = i + 1 To Worksheets.Count

 If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then

 Worksheets(j).Move Before:=Worksheets(i)

 End If

 Next j

 Next i

 For i = 1 To Sheets.Count

 ListBox1.AddItem Sheets(i).Name

 Next

 Sheets("sayfa1").Move Before:=Sheets(1)

End Sub