"Object Variable or With Block variable not set" error while refreshing by button in BPC 10

Hello Friends,

I am trying to refresh my input form by giving user a Refresh Button in BPC 10.

For which, I have written below macro code for the same in button press event.

Sub Refresh()

Dim EPMobject As FPMXLClient.EPMAddInAutomation

EPMobject.RefreshActiveSheet

End Sub

On Clicking the button I am getting below error.

Runtime Error '91' :

Object Variable or With Block variable not set.

Kindly help.

Vishal Parmar