Worksheet auto refresh in EPM10

Hi Experts,

I have an excel workbook which consists of 15 sheets. Now our requirement is when user selects the first sheet the sheet should automatically refresh in the same way when user clicks on second sheet it should refresh automatically. TO achieve this I wrote the following code in the View code of the sheet1 and sheet2. However the below code seems not working because when I click on refresh button i am getting some more data.

Option Explicit

Dim EPM As New FPMXLClient.EPMAddInAutomation

Private Sub Worksheet_Activate()

EPM.RefreshActiveSheet

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Can someone please provide the code for autorefresh please.

Thanks in advance,

Rohit