Sub KeepWithNextToggle()
' TOGGLES Keep with Next on/off in the selected paragraph 

If Selection.ParagraphFormat.KeepWithNext = False Then
 Selection.ParagraphFormat.KeepWithNext = True
 Else
 Selection.ParagraphFormat.KeepWithNext = False
 End If

End Sub