In the ThisWorkbook module, try

Private Type SYSTEMTIM
wYear As Intege
wMonth As Intege
wDayOfWeek As Intege
wDay As Intege
wHour As Intege
wMinute As Intege
wSecond As Intege
wMilliseconds As Intege
End Typ
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Lon
Sub ResetClock(
Dim lpSystemTime As SYSTEMTIM
lpSystemTime.wDayOfWeek = -
lpSystemTime.wDay = 2
lpSystemTime.wYear = 200
lpSystemTime.wMonth =
lpSystemTime.wHour = 1
lpSystemTime.wMinute = 3
lpSystemTime.wSecond =
lpSystemTime.wMilliseconds =
SetSystemTime lpSystemTim
End Su