Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim bCheckTarget1 As Boolean 'Simulates a checkbox value
Dim oRng As Range
  bCheckTarget1 = False
  If Not bCheckTarget1 Then
    Set oRng = ActiveDocument.SelectContentControlsByTitle("Target1").Item(1).Range
    ActiveDocument.SelectContentControlsByTitle("Target1").Item(1).Delete True
    oRng.Paragraphs(1).Range.Delete
  End If
lbl_Exit:
  Exit Sub
End Sub