On 2002-05-14 01:28, Colo wrote:
Hi,
Please try this, and you will need to modify the sheet name.<pre>
Sub test()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name<> "Sheet1" Then sh.Visible = xlSheetHidden
Next
End Sub</pre>
<pre>On 2002-05-14 01:35, sen_edp wrote:
On 2002-05-14 01:28, Colo wrote:
Hi,
Please try this, and you will need to modify the sheet name.<pre>
Sub test()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name<> "Sheet1" Then sh.Visible = xlSheetHidden
Next
End Sub</pre>
What if you want to show them again?
_________________
Best Regards,<font color="black"><font size=+1><font color="blue"> Andreas<font size=1><font color="black"> using Excel 2000 - Windows 2000 prof.
This message was edited by sen_edp on 2002-05-14 01:36
On 2002-05-14 01:51, sen_edp wrote:
Hello Ivan,
Sorry I was not clear , i mean if you
use in the hide macro the xlveryhidden command, what you put in the unhide macro ?
On 2002-05-14 01:54, y2k wrote:
Thank you both very much, they work a treat. One final question (at least I hope it's the final question!). How can I tell it to unhide all of the sheets except one? It's the same one each time, namely 2003.
Thanks again, you've really been a great help