Hi Emilh,

If , however, the workbook might contain
non-worksheet sheets (a chart, for example),
try the following version:

'==========
Public Sub Tester()
Dim WB As Workbook
Dim SH As Object

Set WB = ActiveWorkbook
For Each SH In WB.Sheets
SH.Visible = xlSheetVisible
Next SH
End Sub
'<<==========


---
Regards.
Norman