Open and closing a workbook using On.Time Application

I have a read only workbook that is used on roughly 25 workstations daily. This workbook contains details for all of our customer specs. I update this often sometimes daily as the specs change or new customers are added. This excel file is located on our network drive and each work station has a short cut that points to the network drive to launch the read only file. Once the excel file is opened at the work station the user has to enable the macros for the workbook to function properly. In the workbook I have a routine in place that runs at 5pm to close the workbook and then reopen it. It works as it should on the day the file is opened but come the next day at 5pm it doesn't run the routine again. I think it has something do with killing the timer but I am not sure. Any and all help would be appreciated. I have copied the code below, most of this I found on the web!

What I am trying to acheive is to have the most current information at all of our workstations without having to personaly go around to close and reopen the excel file or to count on everybody doing it everyday.


Thisworkbook

Private Sub Workbook_Open()

Application.OnTime TimeValue("17:00:00"), "CloseNoSave"

End Sub

Module

Sub CloseNoSave()
Dim wb As Excel.Workbook
Set wb = ThisWorkbook
Dim pth As String
pth = wb.FullName
Application.OnTime Now + TimeValue("00:00:10"), Application.Workbooks.Open(pth)
wb.Close (True)
End Sub