Using Worksheet Code Names

  • Thread starter Thread starter Jake
  • Start date Start date
J

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
 
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
 
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
 
If wksSheet.Name <> wksAdmin.Name Then
wksSheet.Visible = False
End If

You need apples and apples.
 
thanks!

Per Jessen said:
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
 
Back
Top