I have one more question. Let's say I have 2 more boxes that I need the Date to copy to.

Is it possible to have the Date copied to multiple boxes?
If I name them all "BoxesDate" only 1 updates.

Sub UpdateBoxes(j As Long, StrDt As String)
With ActiveDocument.SelectContentControlsByTitle("Boxes Date")(1)
.LockContents = False
If j = 0 Or StrDt = "" Then
.Range.Text = ""
Else
.Range.Text = ActiveDocument.SelectContentControlsByTitle("Date" )(1).Range.Text)
End If
.LockContents = True
End With
End Sub