Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Columns("Z")) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub Range("AA" & Target.Row).Value = Range("D4").Value - Range("B" & Target.Row) Range("AB" & Target.Row).Value = Range("D4").Value - Range("D" & Target.Row) End Sub
DON'T MISS