Dave Miller
12/13/2006 9:27:00 PM
Try this:
David Miller
==================================================================
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Trigger" Then
If Sheets("A").vibible = True And Sheets("B").Visible = True And
Sheets("C").Visible = True Then
Sheets("A").Visible = True
Sheets("B").Visible = True
Sheets("C").Visible = True
Else
Sheets("A").Visible = True
Sheets("B").Visible = True
Sheets("C").Visible = True
End If
End Sub