Excel VisualBasic Script

Sub remove()
    ActiveWorkbook.RemovePersonalInformation = True
End Sub