BaseDate = CDate("23/3/2025")<br>        CycleNo = PayPeriod / 4<br>        CycleEndDate = CycleNo * 56 + BaseDate<br>        CycleEndWeek = Application.WorksheetFunction.IsoWeekNum(CycleEndDate) ' Week<br><br><br>Function ConvertToDate(Xval)<br>Xval = CDate(Xval)<br>ConvertToDate = CDbl(Xval)<br>End Function<br><br> TimeSBase(Xrow, 3) = CSng(TSData(SelRow, 3))  'Activity date<br><br>TimeSBase2 = WorksheetFunction.Sort(TimeSBase2, 31, 1, False) 'sort by PP  Emp and Date where col31 has the Manufactured key