Using the Close Method
'Closes the active inspector and saves changes to its contents: Sub saveMode() ActiveInspector.Close SaveMode:=olSave End Sub