Multiple Worksheets in a workbook

[Bill Healy]

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)

 

[Don Guillett]

Here is one I use to goto the sheet from a printed name in a cell. Right
click sheet tab>insert this>save. 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

 

[Bill Healy]

Don thank you for your prompt response!

It's a shame that I don't follow it!!

Sheet tab - which one?
Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"?

Sorry if I'm being dense....

 

[Don Guillett]

What version of excel are you using?

 

[Bill Healy]

Excel 2002.

I can use Excel 2000 if that helps

What version of excel are you using?

 

[Don Guillett]

I am also using 2002. Just follow my instructions to right click the sheet
tab of the sheet where the worksheet names are typed>copy/paste the
code>save your workbook. Now when you double click on the cell where the
desired sheet is typed you will be taken there...

 

[Bill Healy]

Don, have now plugged my brain in..it works brill!

Thanks

 

[Don Guillett]

glad to help