selecting unhidding worksheets 2

[Luis939]

how exactly would i have a loop here i would just run through sheets that are not hidden, and then is there a simple command that says unhide all sheets? thanks!!

 

[SkipVought]

Hi,

each sheet has a Visible property

for each ws in worksheets
  with ws
    if .visible <> xlsheetvisible then
      .visible = xlsheetvisible
    end if
  end with
next

hope this helps

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Luis939]

Nice!!!!!

 

[DaleWatson123321]

Nice!!!!! ...and a <<<STAR>>> ;-)

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[Bowers74]

There really isn't any need to see if the sheet is hidden or not if you want to unhide all of the sheets (and it makes your code shorter):

Sub UnhideAllWorksheets()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Visible =

True

Next ws
End Sub

ws.Visible = True is the same as ws.Visible = xlSheetVisible

ws.Visible = False is the same as ws.Visible = xlSheetHidden

The only .Visible property that can't be controlled like this is xlSheetVeryHidden.

I hope this helps!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!