Note this will throw an error if you have any Chart sheets, since sht is
Dim'd as a Worksheet, but the For Each... objects are Sheets.



In article ,
"Paul B" wrote:

Sub UnHide_All()
'unhide all sheets in a workbook
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Visible = xlSheetVisible
Next
End Sub