You will need to change the date formats to satisfy your system
requirements, but it compiled OK. You need to test it, I did not. Put in
the ThisWorkbook code module.

Private Sub Workbooks_Open()
If DateValue(Date) = DateValue("7/5/09") Then
Sheets("Normal").Move After:=Sheets("School")
ElseIf DateValue(Date) = DateValue("7/18/09") Then
Sheets("School").Move After:=Sheets("Normal")
End If
End Sub



"Steved" wrote in message
...
Hello form Steved

I have an excel file with 2 worksheets

Sheet1 is Named "Normal" Normal timetable.
Sheet2 is Named "School" School Holiday timetable.

Has anybody being able to apply a date to move worksheets

Whats my objective?

The both sheets are bus timetables

What is required is that on 05-Jul-09 Sheet1 and sheet2 swap places
Then on 18-Jul-09 Swap back.

I Thankyou.