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