Here is one I use to goto the sheet from a printed name in a cell. Right
click sheet tabinsert thissave. Double click on the cell with the name in
it. ie: mysheet1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(ActiveCell.Value) Is Nothing Then
' GetWorkbook ' calls another macro to do that
Else
Sheets(ActiveCell.Value).Select
ActiveSheet.Range("a4").Select
End If
Application.DisplayAlerts = True
End Sub
--
Don Guillett
SalesAid Software
"Bill Healy" wrote in message
...
Any easy way to search for a specific sheet?
i.e. Like CTRL F, however I'm looking to find a specific worksheet rather
than scroll across until I find it.
Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones"
instead of "Sheet 1,2, etc)