<matjaz.prtenjak@kovinotehna.si>De: M. Prtenjak 
Objet: Re: How do I refer to a group of sheets
Date : mercredi 6 octobre 1999 13:21

Hi

The code for your job is quite simple

(on the form in one ListBox and one Button!!!)

*** form's code ****
Private Sub CommandButton1_Click()
    activeworkbook.sheets(ListBox1.value).select
    Me.Hide
end Sub

Private Sub Userform_Activate()
dim sheet

    ListBox1.Clear
    for each sheet In activeworkbook.sheets
        if InStr(1, sheet.name, "Graph", vbTextCompare) ><sjones@kc.rr.com> 0 then
ListBox1.addItem sheet.name
    next
end Sub
*** end form's code ***

*** code in main modul *** (used for the execution of form!)
    Userform1.show
*** end code in main modul ***

Hello form Slovenija

Steve1040  wrote in message
news:sMzK3.16840$LK5.398425@typhoon2.kc.rr.com...
> I have a work book with 50+ sheets
>
> 30 of the sheets are graphs Net Graph, Recruit Graph, Turnover Graph, etc,
> etc
>
> How can I use a listbox that will list only sheets that have the word
graph
> in it's name.
>
> Once the user selects the graph they want to see what code will take the
> user to the sheet that has the requested graph.
>
> I'm sorry to be so wordy but the first time I post this question I must
have
> given the wrong impression.
>
> Thanks for all the help
> Steve
>
>