View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Marco Marco is offline
external usenet poster
 
Posts: 69
Default Unhiding all worksheets

Thanks.

"Nick Hodge" wrote:

Marco

Something like

Sub unhidesheets()
Dim sht As Object
For Each sht In ActiveWorkbook.Sheets
sht.Visible = True
Next sht
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Marco" wrote in message
...
Someone hid about 50 sheets in a workbook. What would be the code to
unhide
them all without doing it one by one from the Format menu?

Thank you

Marco