If tab becomes hidden then...

[Rowanhf12]

So a have code written in tab 'sheet1'. And Basically if the tab becomes hidden, I want the word 'No' written in the tab 'info'. And when the tab becomes unhidden, I want the word 'Yes' written in the tab 'info'. At the moment, when i unhide/hide 'sheet1' nothing happens.

Private Sub Worksheet_Change()
If ActiveSheet.Visible = True Then
    Sheets("Info").Visible = True
    ActiveSheet.Range("D2").Select
    ActiveCell.FormulaR1C1 = "Yes"
    Sheets("Info").Visible = False
ElseIf ActiveSheet.Visible = False Then
    Sheets("Info").Visible = True
    ActiveSheet.Range("D2").Select
    ActiveCell.FormulaR1C1 = "No"
    Sheets("Info").Visible = False
End If
End Sub

 

[dermie_72]

you're using activesheet.range("D2") instead of
sheets("Info").activate
then activesheet ect
the active sheet at the time of the code being run is the active sheet. You have not activated Info, just ensured it is visible.

 

[MandeepBaluja]

Put this in sheet info code 

Private Sub Worksheet_Activate()
If Sheet1.Visible = False Then
        Sheets("info").Range("a1").Value = "NO"
Else
Sheets("info").Range("a1").Value = "YES"
End If
End Sub

 

[Rowanhf12]

Yea, my bad. Thanks for you help. Have updated that. But still nothing happens.

Private Sub Worksheet_Change()
If ActiveSheet.Visible = True Then
    Sheets("Info").Visible = True
    Sheets("Info").Range("D2").Select
    ActiveCell.FormulaR1C1 = "Yes"
    Sheets("Info").Visible = False
ElseIf ActiveSheet.Visible = False Then
    Sheets("Info").Visible = True
    Sheets("Info").Range("D2").Select
    ActiveCell.FormulaR1C1 = "No"
    Sheets("Info").Visible = False
End If
End Sub

 

[Rowanhf12]

Thank you MandeepBaluja

Actually works perfectly if I put the code in Info tab instead. If i put it in Sheet1, then it works when the tab is unhidden, but fails to work when hidden.

Much appreciate your help