vba subtract time from date

[gecko0735]

I have a workbook with 7 tabs named Monday - Sunday. I use the following to open the tab by the date. What I need is for the date to be 5 hours before the actual date, so it won't change tabs til 5am instead of midnight.

Sub auto_open()
Sheets(Format(Date, ("dddd"))).Select
End Sub

[mperrah]

try this

Sub auto_open()
Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name = Format(Date, ("dddd")) And _
        Hour(Now) >= TimeSerial(5, 0, 0) Then
        Sheets(Format(Date, ("dddd"))).Select
        End If
    Next
End Sub

hope this helps
-mark

[mperrah]

Actually this works:

Sub auto_open()
Dim ws As Worksheet
        IF Hour(Now) >= Hour("5:00 am") Then
        Sheets(Format(Date, ("dddd"))).Select
        End If
    
End Sub

hope this helps
-mark

[gecko0735]

Problem Solved! Thanks

[mperrah]

Glad to help,
be sure to use thread tools and mark as solved
-mark