How to find a worsheet in a workbook?

[CyberCivic]

I got a workbook with several worksheets and I need to make it easier to find a worksheet on that workbook, but I don't know how.

Thanx a lot

 

[arthurbr]

Hello Cyber, what did you have in mind?

Don't forget that by right-clicking on the arrows near the sheet tabs ( on the left side of the sheet), you have a menu with all sheets. You can then choose the sheet you need.
Cheers
André

 

[CyberCivic]

Yes I know that, but the problem is that on that workbook I got something like 200 worksheets, what makes me hard to just scroll all the worksheets until I find the one I want.

Thanx

 

[KenWright]

Also, from Office XP onwards, you can colour the tabs by right-clicking the tab and choosing a colour. Makes it easy to spot a sheet if you are scrolling the tabs quickly.

Regards
Ken............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission
----------------------------------------------------------------------------

 

[xlbo]

And how exactly were you thinking of making it easier to find a worksheet ??

Maybe by reducing the number of worksheets ??

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[TonyJollans]

I'm with Geoff - if you devise the method, someone can probably implement it. Can sheets be grouped in any way - by name, or contents?

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[JerryKlmns]

You are a bit lucky because I just needed a procedure to find all those sheets

Sub DL()
Dim iCount As Integer
Dim wsheet As Worksheet
iCount = 1
ActiveWorkbook.Worksheets.Add
For Each wsheet In ActiveWorkbook.Worksheets
If wsheet.Name <> "Sheet1" Then
ActiveWorkbook.Worksheets("Sheet1").Cells(iCount, 1).ClearContents
ActiveWorkbook.Worksheets("Sheet1").Cells(iCount, 1).Value = wsheet.Name
iCount = iCount + 1
End If
Next

End Sub

When run you have a sheet named Sheet1 with all sheets listed in a column!

 

[xlbo]

.....I'm wondering why there is any need to have a 200 sheet workbook......

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[ries]

.... and if you're not so familiar with implementing code go to

http://www.asap-utilities.com/

.
Among 300 other functions it has also the one you are looking for, to be activated with a simple mouseclick.

Have fun,
Ries

 

[SkipVought]

CC,

Is it maybe because you have Sheets with SIMILAR DATA STRUCTURE, that are named (for instance, Jan, Feb, Mar... or Date A, Date B, Date C... or Product 1, Product 2, Product 3... or Division A, Division B, Division C...) that are, in fact, DATA ELEMENT VALUES????

Skip,
[sub]
[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine![/sub]

 

[AnotherHiggins]

I'm with Skip, Geoff and Tony. If you have 200 worksheets in a workbook, you probably need to store your data more efficiently.

[tt]_____
[blue]-John[/blue][/tt]

Help us help you. Please read FAQ181-2886 before posting.