Error with code... ".Visible"

[Tim]

When I run the code below I get the following error:
Run-time error '1004'
Method 'Visible' of object '_Worksheet' failed

This only displays when I have the debug set to break on all errors.

This code is supposed to hide 8 worksheets and leave number 9 visible...the error occurs with Sheet_7
For Each wSheet In ThisWorkbook.Worksheets
If wSheet.CodeName = "Sheet_9" Then
wSheet.Visible = xlSheetVisible
Else
wSheet.Visible = xlSheetVeryHidden
End If
Next wSheet
....any ideas on what's up?

Tim

 

[fred]

Tim,
just a thought, you cannot hide all of the worksheets in a workbook so if
"sheet_9" is hidden before you enter this loop then you maybe trying to hide
all the other sheets before making Sheet_9 visible.
You might want to change the code to:

Sheet_9.Visible = xlSheetVisible
For Each wSheet In ThisWorkbook.Worksheets
If not wSheet.CodeName = "Sheet_9" Then
wSheet.Visible = xlSheetVeryHidden
End If
Next wSheet

Fred

When I run the code below I get the following error:
Run-time error '1004'
Method 'Visible' of object '_Worksheet' failed

This only displays when I have the debug set to break on all errors.

This code is supposed to hide 8 worksheets and leave number 9

visible...the error occurs with Sheet_7

 

[JWolf]

Try "Sheet9" instead of "Sheet_9"