Sub AddADayToMe()
For Each Task In ActiveSelection.Tasks
    If Not Task.ConstraintDate = "NA" Then
    Task.ConstraintDate = Task.ConstraintDate + 1
    Else: Task.ConstraintDate = Now()
    End If
Next Task
End Sub

Sub AddAWeekToMe()
For Each Task In ActiveSelection.Tasks
    If Not Task.ConstraintDate = "NA" Then
    Task.ConstraintDate = Task.ConstraintDate + 7
    Else: Task.ConstraintDate = Now()
    End If
Next Task
End Sub

Sub SubAWeekFromMe()
For Each Task In ActiveSelection.Tasks
    If Not Task.ConstraintDate = "NA" Then
    Task.ConstraintDate = Task.ConstraintDate - 7
    Else: Task.ConstraintDate = Now()
    End If
Next Task
End Sub

Sub SubADayFromMe()
For Each Task In ActiveSelection.Tasks
    If Not Task.ConstraintDate = "NA" Then
    Task.ConstraintDate = Task.ConstraintDate - 1
    Else: Task.ConstraintDate = Now()
    End If
Next Task
End Sub

Sub RemoveConstraint()
For Each Task In ActiveSelection.Tasks
Task.ConstraintType = "ASAP"
Next Task
End Sub