Macro does not work after company update

's Computer Specifications

This macro.....

Private Sub Worksteet_Change(ByVal Target As Range)
PivotTables("PivotTable1").RefeshTable
PivotTables("PivotTable2").RefeshTable
End Sub

No longer works after company I work for updated excel.
It now goes into some sort of continuous loop.

Any Idea how to make it work??

Thanks in advance.

's Computer Specifications

Private Sub Worksteet_Change(ByVal Target As Range)
application.enableevents = false
PivotTables("PivotTable1").RefeshTable
PivotTables("PivotTable2").RefeshTable
application.enableevents = true
End Sub

to stop the refresh from call the _change event.

aaronb wrote:
>
> This macro.....
>
> Private Sub Worksteet_Change(ByVal Target As Range)
> PivotTables("PivotTable1").RefeshTable
> PivotTables("PivotTable2").RefeshTable
> End Sub
>
> No longer works after company I work for updated excel.
> It now goes into some sort of continuous loop.
>
> Any Idea how to make it work??
>
> Thanks in advance.

--

Dave Peterson

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to update a column in a work based on another work sheet	WickerMan	Microsoft Excel New Users	1	4th Dec 2009 01:58 PM
Macro to format part of Company name	marcia	Microsoft Word Document Management	4	10th Aug 2009 06:08 PM
How do I save a macro that is accessible to all on our company ser	NBP & me	Microsoft Word Document Management	1	11th Aug 2008 10:13 PM
Custom Toolbars won't work on Company Intranet	=?Utf-8?B?UmljaGFyZA==?=	Microsoft Excel Discussion	1	9th Jan 2006 07:52 PM
Auto refresh and DDE update is not work when running macro	Eddy	Microsoft Excel Programming	0	13th Jul 2004 11:08 AM