morning Rob,

can you explain the differences between the new code and the old code?

Also, just one last question:
    If destn.Value > "" Then
         destn.Offset(0, 16).Resize(40, 1) = dtDate
     destn.Offset(0, 17).Resize(40, 1) = strNote
     desttn.offest(0, 18).Resize(40, 1) = "1"
     End If
should return a column with 1 in each cell but isn't.

Also, I get a value of 5 for some of the cells in "Shift" and the only sheets I have open say 1st, 2nd, and 3rd.