Error with code... ".Visible"

T

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
 
F

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


Tim said:
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
Click to expand...
visible...the error occurs with Sheet_7
 
Top