ApplyAll
Dim IsOk IsOK = ApplyAll
If IsOK Then MsgBox "Saving is successfully"
CancelChanged Function