Runtime error when closing the sheetHi all,

[praveen_khm]

Hi all,
This is a simple macro to hide the sheets if macro is disabled. But I
get an error when I close the worksheet. Can anyone please help me with
this. Other than that, everything seems fine. The problem is only when
closing the worksheet if get an error as " run-time error '1004':
Method ;visible' of object' _worksheet' failed". The code is given
below.


Public bIsClosing As Boolean
Dim wsSheet As Worksheet

Sub HideAll()

Application.ScreenUpdating = False
For Each wsSheet In ThisWorkbook.Worksheets
If wsSheet.CodeName = "TABLE" Then
wsSheet.Visible = xlSheetVisible
Else
wsSheet.Visible = xlSheetVeryHidden
End If
Next wsSheet
Application.ScreenUpdating = True

End Sub

Sub ShowAll()
bIsClosing = False

For Each wsSheet In ThisWorkbook.Worksheets
If wsSheet.CodeName <> "TABLE" Then
wsSheet.Visible = xlSheetVisible
End If
Next wsSheet
End Sub


Please help.....

 

[Ivan Raiminius]

Hi,

at least one worksheet must remain visible.

Regards,
Ivan

 

[praveen_khm]

Thanks Ivan,
I ll try with that.......