I have created a work schedule that has to change worksheets names according to the shift

working, basically a 7 day shift showing the respective shift, in proper day order; Days,

Evenings, & Split Shift.

This is the code that I have put together, (see below), my problem is that I can't get the

code to work properly from a buttom if that buttoms are click out of order. How do I work the

"If...Then...Else" into my code so as not to create an error if the buttoms are clicked out of

order.

Sub DayShift()
Range("E6").Select
ActiveCell.FormulaR1C1 = "Days"
Sheets("TueS").Select
Sheets("TueS").Name = "FriD"
Sheets("WedS").Name = "SatD"
Sheets("ThuS").Name = "SunD"
Sheets("FriS").Name = "MonD"
Sheets("SatS").Name = "TueD"
Sheets("SunS").Name = "WedD"
Sheets("MonS").Name = "ThuD"
Sheets("FriD").Select
Range("E6").Select
End Sub
Sub EveningShift()
Range("E6").Select
ActiveCell.FormulaR1C1 = "Evenings"
Sheets("FriD").Select
Sheets("FriD").Name = "ThuE"
Sheets("SatD").Name = "FriE"
Sheets("SunD").Name = "SatE"
Sheets("MonD").Name = "SunE"
Sheets("TueD").Name = "MonE"
Sheets("WedD").Name = "TueE"
Sheets("ThuD").Name = "WedE"
Sheets("ThuE").Select
Range("E6").Select
End Sub
Sub SplitShift()
Range("E6").Select
ActiveCell.FormulaR1C1 = "Split Shift"
Sheets("ThuE").Select
Sheets("ThuE").Name = "TueS"
Sheets("FriE").Name = "WedS"
Sheets("SatE").Name = "ThuS"
Sheets("SunE").Name = "FriS"
Sheets("MonE").Name = "SatS"
Sheets("TueE").Name = "SunS"
Sheets("WedE").Name = "MonS"
Sheets("TueS").Select
Range("E6").Select
End Sub

Hope someone can help, Thanks