Sheet visible on cell valeu

[aBcdcg]

Hello,

Below a part of a code.
I wan't to change a part of this. Sheets X was always vidible, but it may only be visible if the valeu on 'Sheet11 cell A1 = > 5'

I have test it whit the IIf function, but i make some little mistake...

Sub Generate ()  t = Sheets("Sheet 1").Cells(3, 1).Value
  If t > 0 Then
    Application.DisplayAlerts = False

    [B]Sheets("X" & t).Visible = True[/B]
    ....
    ....

Thanks !

 

[Yongle]

Perhaps Sheet11 is a typing error?
Amend if necessaey

With Sheets("X")
    .Visible = False
    If Sheets("Sheet[COLOR=#ff0000]11[/COLOR]").Range("A1") >= 5 Then .Visible = True
End With

both conditions together like this

    With Sheets("X")
        .Visible = False
        If Sheets("Sheet 1").Cells(3, 1) > 0 And Sheets("Sheet[COLOR=#ff0000]11[/COLOR]").Range("A1") >= 5 Then .Visible = True
    End With

 

[aBcdcg]

Hello,

It's a part of a code, the bold text in the code will repeat a few times for other sheets. They will not be changed.

- 'Sheet11' is not a typo.
- The first 3 line of the code can not be change, that menas that a new code not can be made;
- only the bold text in the code can be canged.
- The conditions in the first 3 line has to stay there.

 

[Yongle]

Try the first code I gave you in post#2
But maybe replace

With Sheets("X")

[in your explanation]

With...

With Sheets("X" & t )

[in your code]