Multiple Worksheets in a workbook
 

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)

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)

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" wrote:

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)

What version of excel are you using?

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
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" wrote:

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)

Excel 2002.

I can use Excel 2000 if that helps

"Don Guillett" wrote:

What version of excel are you using?

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
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" wrote:

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)

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

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
Excel 2002.

I can use Excel 2000 if that helps

"Don Guillett" wrote:

What version of excel are you using?

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
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" wrote:

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)

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

Thanks

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
Excel 2002.

I can use Excel 2000 if that helps

"Don Guillett" wrote:

What version of excel are you using?

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
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" wrote:

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)

glad to help

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
Don, have now plugged my brain in..it works brill!

Thanks

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
Excel 2002.

I can use Excel 2000 if that helps

"Don Guillett" wrote:

What version of excel are you using?

--
Don Guillett
SalesAid Software

"Bill Healy" wrote in message
...
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" wrote:

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)