Application VisualBasic Script

Sub remove()
    ActiveWindow.Split = False
End Sub