Option Base 1<br>Global ShiftT, timestart, timeend, Emp<br>Global PPCal, fso As New FileSystemObject<br>Global PTLimit As New Scripting.Dictionary, Dayref As New Scripting.Dictionary<br>Global PHDay As New Scripting.Dictionary, EmpHDate As New Scripting.Dictionary, ShiftRow As New Scripting.Dictionary<br><br>Sub TimeSheetManager()<br>timestart = Timer<br><br>GetShiftEntry<br>GetTimeSheet TSData<br>TSList = ""<br>TSList2 = ""<br> TSList3 = ""<br>ThisWorkbook.Sheets("Collected").Range("A2").Resize(UBound(TSData), UBound(TSData, 2)) = TSData<br>k = 3<br>SelectAssemblePriorityWork<br>    <br>     With ThisWorkbook.Sheets("Control")<br>           .Activate<br>            .Range("E19") = Now<br>            timeend = Timer<br>            Elapsed = timeend - timestart<br>            .Range("F19") = Elapsed<br>    End With<br><br> End Sub<br><br>