Debug problem when highlighting?

Try changing Target to rng in the for loop

For Each rng In Target
      If Not Application.Intersect(rng, Range("c10:c110")) Is Nothing Then
   **    If rng> 1 Then
            If IsEmpty(Cells(rng.Row, "e")) Then
               Application.EnableEvents = False
               Cells(rng.Row, "e").Value = Now()
            End If
         End If
      End If
   Next rng