Tab Hound

[gazmoz17]

Hi,

Stumbled across this but struggling to download: Tab Hound Add-in - The Fastest Way to Find Worksheets - Excel Campus

Is there anything similar or better?

Many Thanks

 

[offthelip]

Depending on what you want to do it is quite easy to program your navigation aids, I very quickly created this very basic navigation tool. :
I created a Userform (Userform1) on it I put a listbox (Listbox1) and a command button (commandButton1)
then in a standard module I had this code which is triggered by putting a shortcut on the Excel Quickaccess toolbar. This shows the userfrom.

Sub showu()
 UserForm1.Show
End Sub

then the code on the userform was:

Private Sub CommandButton1_Click()
For i = 1 To Worksheets.Count
    If UserForm1.ListBox1.Selected(i - 1) = True Then
      Worksheets(i).Select
      Exit For
    End If
Next i
Unload UserForm1
End Sub

Private Sub UserForm_Activate()
 With UserForm1.ListBox1
For i = 1 To Worksheets.Count
    .AddItem Worksheets(i).Name
Next i
End With
End Sub

I changed the caption on the command button to "GO"

 

[offthelip]

I have just been playing with these and if you want the worksheets listed inthe reverse order you can do it like this:#

Private Sub CommandButton1_Click()
For i = 1 To Worksheets.Count
    If UserForm1.ListBox1.Selected(i - 1) = True Then
      shtno = Worksheets.Count - i + 1
      Worksheets(shtno).Select
      Exit For
    End If
Next i
Unload UserForm1
End Sub

Private Sub UserForm_Activate()
 With UserForm1.ListBox1
For i = Worksheets.Count To 1 Step -1
    .AddItem Worksheets(i).Name
Next i
End With
End Sub