planning data not saved when executing through VBA function

Hello,

We have a BI-IP planning layout, where an Excel form button will call a VBA function to execute a Planning Sequence. After successfully executing the PS, the data in Excel is getting updated but it is not saved into the Relatime cube.

The data is lying in the planning buffer and when i close the Excel popup window with the message "Planning data is not saved. Do you want to save the data?" is displayed.

below is the VBA function code..

Public Function Execute_Copy_PS()

    Dim lResult As Long

    lResult = Application.Run("SAPExecutePlanningSequence", "PS_1")

    lResult = Application.Run("SAPExecuteCommand", "PlanDataSave")

    lResult = Application.Run("SAPExecuteCommand", "Refresh")

End Function

Any idea why this is happening? We are using Composite Provider (based on Realtime Cube & HANA Open ODS View).

Thanks in advance,

Vamsi.