Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Range("J14") = "OK" And Sh.Range("J16") = "OK" Then
Select Case Sh.Index
Case 1
Sh.Visible = Switch(Sh.Index = 1, 0, Sh.Index = 2, -1)
Case 2
Sh.Visible = Switch(Sh.Index = 2, 0, Sh.Index = 3, -1)
End Select
End If
End Sub