Unload/Unhide Sheet Based on Name

[manthony]

Hi, I am trying to unhide a very hidden worksheet based on a name picked from the drop down list. I am getting a Run-time error 91 Object variable or with block variable not set on the "If ws = Worksheets("Administrator").Range("B9").Value Then" line. Any ideas on how to fix this?

Code:

Dim ws As Worksheet

If ws = Worksheets("Admin").Range("B9").Value Then
ws.Visible = True
End If

Call Macro1


End Sub

Thanks for the help.

Mike

 

[offthelip]

try this:

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets


If ws.Name = Worksheets("Sheet1").Range("B9").Value Then
ws.Visible = True
Call Macro1
Exit For
End If
Next ws

 

[Trebor76]

You could just use this single line which will just do nothing if the tab is visible:

Sheets(CStr(Worksheets("Admin").Range("B9"))).Visible = xlSheetVisible

Robert

 

[manthony]

Thank you both. The code worked perfectly.

Hi, I am trying to unhide a very hidden worksheet based on a name picked from the drop down list. I am getting a Run-time error 91 Object variable or with block variable not set on the "If ws = Worksheets("Administrator").Range("B9").Value Then" line. Any ideas on how to fix this?

Code:

Dim ws As Worksheet

If ws = Worksheets("Admin").Range("B9").Value Then
ws.Visible = True
End If

Call Macro1


End Sub

Thanks for the help.

Mike