here is a macro that will run when you open the file and select appropriate tab depending on time of day.
Private Sub Workbook_Open()
Dim D_ate As Date
D_ate = Now()
If Hour(D_ate) < 12 Then
If Weekday(D_ate, vbSunday) >= 2 And Weekday(D_ate, vbSunday) <= 5 Then
Sheets("Shift1").Select
Else
Sheets("Shift2").Select
End If
Else
If Weekday(D_ate, vbSunday) >= 3 And Weekday(D_ate, vbSunday) <= 6 Then
Sheets("Shift3").Select
Else
Sheets("Shift4").Select
End If
End If
End Sub
see attached file
you can modify this macro to select a specific cell as you wish.
Regards
Bookmarks