Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Count = 1 Then
            if Target.column=5 Then  Target.Offset(, 2) = iif(target.offset(,5)=[/FONT]"","",(int(target.offset(,4))+target.offset(,5) mod 1)-(INT(target.offset(,-4))+target.offset(,-4) mod 1) )
      End If  
End Sub