I'm trying to add a work shift label (Day, Swing, Grave) in a particular cell in a row according to the timestamp on an entry. If there is no timestamp, I want it to do nothing.

The timestamp is formatted "hh:mm:ss" and is in the 6th/F row.

This is what I have so far. Without the 4th line it will label all entries as Day, otherwise no dice.

```
Sub Shift()
Dim Time As Date, cel As Range
For Each cel In Range("F2:F100000")
    If IsEmpty(cell.Value) Then Exit For
        If Time > TimeValue("06:00:00") And Time < TimeValue("14:00:00") Then
            cel.Offset(0, 2).Value = "Day"
        End If
Next

End Sub

```