unhide multiple sheets?

project_man · May 6th, 2002, 08:08 AM

Hi, does any know of a way to unhide multiple sheets at the same time? I feel very inefficient doing them all 'one at a time.'

Thanks.

kkknie · May 6th, 2002, 08:12 AM

I have this macro saved in my Personal Macros to do just that. I also added it to my tools menubar since I use it so often.

Sub Unhide_All

For Each s in Sheets
s.Visible = True
Next

End Sub

Asala42 · May 6th, 2002, 08:13 AM

G'day,

That "unhide one sheet at a time only" thing always bugged me too. I tossed this into my personal.xls file to bypass it.

Sub Unhide_All_Sheets()
Dim i
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub

Hope that helps,
Adam

Asala42 · May 6th, 2002, 08:18 AM

ahh ... Didn't think of the For Each s in Sheets approach. Good call, kkknie

Adam

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 6th, 2002, 08:08 AM	#1
project_man New Member Join Date: May 2002 Location: Toronto, Canada Posts: 12	Hi, does any know of a way to unhide multiple sheets at the same time? I feel very inefficient doing them all 'one at a time.' Thanks.

May 6th, 2002, 08:12 AM	#2
kkknie Board Regular Join Date: Apr 2002 Location: Greenwood, SC Posts: 677	I have this macro saved in my Personal Macros to do just that. I also added it to my tools menubar since I use it so often. Sub Unhide_All For Each s in Sheets s.Visible = True Next End Sub

May 6th, 2002, 08:13 AM	#3
Asala42 Board Regular Join Date: Feb 2002 Location: Southfield,MI USA Posts: 1,027	G'day, That "unhide one sheet at a time only" thing always bugged me too. I tossed this into my personal.xls file to bypass it. Sub Unhide_All_Sheets() Dim i For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub Hope that helps, Adam

May 6th, 2002, 08:18 AM	#4
Asala42 Board Regular Join Date: Feb 2002 Location: Southfield,MI USA Posts: 1,027	ahh ... Didn't think of the For Each s in Sheets approach. Good call, kkknie Adam