Private Sub workbook_open()
Dim mydate
mydate = Date
If Date > ("01/01/2010") And Date < ("05/02/2010") Then
Sheets("Production (1)").Visible = True
Else
Sheets("Production (1)").Visible = False
End If
If Date > ("01/02/2010") And Date < ("05/03/2010") Then
Sheets("Production (2)").Visible = True
Else
Sheets("Production (2)").Visible = False
End If
If Date > ("1/03/2010") And Date < ("5/04/2010") Then
Sheets("Production (3)").Visible = True
Else
Sheets("Production (3)").Visible = False
End If
If Date > ("1/04/2010") And Date < ("5/05/2010") Then
Sheets("Production (4)").Visible = True
Else
Sheets("Production (4)").Visible = False
End If
If Date > ("1/05/2010") And Date < ("5/06/2010") Then
Sheets("Production (5)").Visible = True
Else
Sheets("Production (5)").Visible = False
End If
If Date > ("1/06/2010") And Date < ("5/07/2010") Then
Sheets("Production (6)").Visible = True
Else
Sheets("Production (6)").Visible = False
End If
If Date > ("1/07/2010") And Date < ("5/08/2010") Then
Sheets("Production (7)").Visible = True
Else
Sheets("Production (7)").Visible = False
End If
If Date > ("1/08/2010") And Date < ("5/09/2010") Then
Sheets("Production (8)").Visible = True
Else
Sheets("Production (8)").Visible = False
End If
If Date > ("1/09/2010") And Date < ("5/10/2010") Then
Sheets("Production (9)").Visible = True
Else
Sheets("Production (9)").Visible = False
End If
If Date > ("1/10/2010") And Date < ("5/11/2010") Then
Sheets("Production (10)").Visible = True
Else
Sheets("Production (10)").Visible = False
End If
If Date > ("1/11/2010") And Date < ("5/12/2010") Then
Sheets("Production (11)").Visible = True
Else
Sheets("Production (11)").Visible = False
End If
If Date > ("1/12/2010") And Date < ("10/12/2011") Then
Sheets("Production (12)").Visible = True
Else
Sheets("Production (12)").Visible = False
End If
End Sub