Using Worksheet Code Names

[Jake]

Hello,
I would like to hide all sheets in a workbook except a sheet with Code Name
wksAdmin. The following code produces error message: object does not
support this property or method. I know i'm referencing wksAdmin
incorrectly, but not sure why. thanks for any help.

Sub HideAllSheetsExceptAdmin()
Dim wksSheet As Worksheet
For Each wksSheet In ActiveWorkbook.Worksheets
If wksSheet <> wksAdmin Then
wksSheet.Visible = False
End If
Next wksSheet
End Sub

 

[Mike]

Sub HideAllSheetsExceptAdmin()
Dim wksSheet As Worksheet
For Each wksSheet In ActiveWorkbook.Worksheets
If wksSheet.Name <> "wksAdmin" Then
wksSheet.Visible = xlSheetHidden
End If
Next wksSheet
End Sub

 

[Per Jessen]

Hi

Try this:

Sub HideAllSheetsExceptAdmin()
Dim wksSheet As Worksheet
Dim wAdm As String
wAdm = wksAdmin.Name
For Each wksSheet In ActiveWorkbook.Worksheets
If wksSheet.Name <> wksAdm Then
wksSheet.Visible = False
End If
Next wksSheet
End Sub

Regards,
Per

 

[JLGWhiz]

If wksSheet.Name <> wksAdmin.Name Then
wksSheet.Visible = False
End If

You need apples and apples.

 

[Jake]

thanks!

Hi

Try this:

Sub HideAllSheetsExceptAdmin()
Dim wksSheet As Worksheet
Dim wAdm As String
wAdm = wksAdmin.Name
For Each wksSheet In ActiveWorkbook.Worksheets
If wksSheet.Name <> wksAdm Then
wksSheet.Visible = False
End If
Next wksSheet
End Sub

Regards,
Per