list sheet hided... (2000 sr 1)

[sal21]

... Suggestion.
With my last macro i make variuos sheet from the value present into a column of other sheet.
Well, after the macro end i have 47 new sheet into wbook.
For me not is very godd to have 47 sheet listed into wbook...
To make a good work, i have hide all sheet during the creation from the macro.
And when i decide to use one of sheet hided i have make a userform to sho the list of hided sheet.
Is a good idea?

in other case i have used a old from, but when i click on one of sheet listed into userform the sheet not is opned? Bho?

[sal21]

ok, solved the prob...
But is possible if i click on new sheet from userform, to hide the sheet already opened, and make to appear the new selected sheet...
In effect maitain always showed, only the last sheet slelected?
Example:

i select 4546-025427, this appear into wbook.
If i select another sheet for example 4546-004181, close and hide 4546-025427 and show 4546-004181...

new wbook attached...

[sdckapr]

<P ID="edit" class=small>(Edited by sdckapr on 27-Sep-05 07:40. Added some code)</P>In your code , you could loop thru all the worksheets and only make the selected one and Menu visible. If it is not menu or the selected one, hide it.


Steve
PS here is the code I alluded to. Add to your existing routine as indicated.

<pre>Exit Sub
prb:
<font color=red>With ThisWorkbook
For Each wks In .Worksheets
If wks.Name = Me.ListBox1.Text Or _
wks.Name = "MENU" Then
<font color=blue> .Worksheets(Me.ListBox1.Text).Visible = True
.Worksheets(Me.ListBox1.Text).Select</font color=blue>
Else
wks.Visible = xlSheetHidden
End If
Next
End With</font color=red>
If Err.Number = 9 Then</pre>

[sal21]

good! Work perfect!
Tks.