hide/unhide sheet code

[chobanne]

Pls guys, can someone help me

I need simple code for sheet1 depend on values in cell A1. If A1 is true then unhide sheet2, if A1 is false then hide sheet 2.

thank you

 

[chobanne]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets(2).Visible = (Sheets(1).Range("a1").Value <> True)
    Application.EnableEvents = True
End Sub

It doesn't matter what your sheets are called. If you think they do, then use this instead

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets("EXIT").Visible = (Sheets("ENTER").Range("a1").Value <> True)
    Application.EnableEvents = True
End Sub

Sorry my friend but this code dont work for me, did u try it? i do everything u wrote me... and nothing. Sheet "enter" dont appear if it is hide, or disappear if it is unhide

 

[RSXchin]

i give up. gurus, if you're watching this, I'm going to bed. Help this man.