Unhide multiple work sheets at once

M

Mallycat

With VBA

Sub UnHideAll()
Dim ws As Object
Set ws = ActiveWorkbook.Sheets
For Each Sheet In ws
Sheet.Visible = True
Next Sheet
End Sub
 
G

Gord Dibben

A macro to unhide all sheets.

Sub Show_Sheets()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Visible = True
Next i
End Sub


Gord Dibben MS Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I unhide multiple sheets? 3
hiding sheets 1
need code for hiding/unhiding sheets using checkboxes 1
Unhide Multiple Sheets 2
How to Disable Unhide Sheet menu option 8
Unhiding multiple worksheets in Excel 2000 1
How can I unhide multiple sheets at one time? 2
Unhide Multiple Sheets at once 8

Top