Giving responce to msgbox displayed while running vbcode

[Manikanta]

Hi, When I am running VBcode a Msgbox is diplaying by Excell asking " This action will cancel a pending Refresh Data command. Continue?" It has Ok and Cancel button. I want to select "Ok" every time. I am doing this manually instead I want this action to be done by VB code itself. How should I code this one?

[Hackoo]

Hi
Show us your Code ?

[Manikanta]

Hi
Show us your Code ?

Below is my code. If I am not writing SaveAs line the data is getting refreshed with out any messages. If I am writing SaveAs it is displaying msgbox and even if i click data is not getting refreshed. Actually pivot table is getting data from MS-ACCESS.

With my analysys what I understood is SaveAs line is executing before the pivot table is not getting refreshed. So it is displaying the msgbox. What Should I do to run the SaveAs line after total pivot table refresh is completed?

Set x1 = CreateObject("Excel.application")

Set XlBook = x1.Workbooks.Open("C:\eCMSAutomatedReports\Input\Monthly\Second Monday\Latest Lead Source Counts from eCMS.xls")
x1.Visible = True

Set Xlsheet1 = XlBook.Worksheets("Lead Source Report")

Xlsheet1.PivotTables("PivotTable1").RefreshTable


'x1.ActiveWorkbook.SaveAs ("C:\eCMSAutomatedReports\Output\Monthly\Second Monday\Latest Lead Source Counts from eCMS D" & Right("0" & DatePart("m", Date), 2) & Right("0" & DatePart("d", Date), 2) & Right("0" & DatePart("yyyy", Date), 2) & ".xls")
'x1.ActiveWorkbook.Close
'x1.Quit