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