Hide Sheets in workbook (Code enclosed)

[vidplaylist]

I want that Sheets name given in column C get hide in workbook if i write No in Column E. Similarly display Sheet in workbook if i write Yes.

Note: i have to apply this formula on this range only.

Somewhere i am doing mistake so, please help.

Sub DisplaySheetHide()

Dim Cell As Range

For Each Cell In Range("E1:E17")

If Cell.Value = "No" Then

ActiveCell.Offset(0, -2).Select

Sheets(Cell.Value).Visible = xlSheetVeryHidden

ElseIf Cell.Value = "Yes" Then

ActiveCell.Offset(0, -2).Select

Sheets(Cell.Value).Visible = xlSheetVisible

End If


Next Cell

End Sub

 

[VoG]

Try

Sub DisplaySheetHide()
Dim Cell As Range
For Each Cell In Range("E1:E17")
    If Cell.Value = "No" Then
        Sheets(Cell.Offset(, -2).Value).Visible = xlSheetVeryHidden
    ElseIf Cell.Value = "Yes" Then
        Sheets(Cell.Offset(, -2).Value).Visible = xlSheetVisible
    End If
Next Cell
End Sub

 

[vidplaylist]

Thanks, It worked

 

[vidplaylist]

1-Oh no, I am getting " Subscript out of range" Run-time error '9':
2- I am wondering if i put "yes" and sheet is already visible(not hidden) then what will happen. How i can ignore this statement in code if sheet is already visible and i put "Yes" in column E

 

[VoG]

That error means that one of the sheets in your range doesn't exist. Maybe you have misspelt it or there are leading or trailing spaces.

 

[vidplaylist]

I tested the code on simple named sheet and found no problem. Thanks again.