Sub ShowAllWorkSheets()
 Dim ws As Worksheet

 If ActiveWorkbook Is Nothing Then Exit Sub

 For Each ws In ActiveWorkbook.Worksheets
  ws.Visible = xlSheetVisible
 Next ws

End Sub