The following code worked fine in office xp but not in 2003

Private Sub Worksheet_Calculate()
Application.EnableEvents = True
Run ("SelectAfter")
Application.EnableEvents = True
End Sub

The problem is when I tried to unhide rows in the sheet, the marco
"SelectAfter" runs. And I only need it runs when somethng changed in PVT. It
worked fine in XP version but above situiation happened after I changed to
2003.
The marco SelectAfter means to hide 2 rows after select other items in PVT.

Can someone help?
--
Dennis Cheung

Thanks Jacob. After following your code,
The marco didn't run when I unhide rows. But it didn't run after slecting
other item in Pivot Table.
--
Dennis Cheung


"Jacob Skaria" wrote:

> Private Sub Worksheet_Calculate()
> Application.EnableEvents = False
> 'your code
> Application.EnableEvents = True
> End Sub
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Dennis Cheung" wrote:
>
> > The following code worked fine in office xp but not in 2003
> >
> > Private Sub Worksheet_Calculate()
> > Application.EnableEvents = True
> > Run ("SelectAfter")
> > Application.EnableEvents = True
> > End Sub
> >
> > The problem is when I tried to unhide rows in the sheet, the marco
> > "SelectAfter" runs. And I only need it runs when somethng changed in PVT. It
> > worked fine in XP version but above situiation happened after I changed to
> > 2003.
> > The marco SelectAfter means to hide 2 rows after select other items in PVT.
> >
> > Can someone help?
> > --
> > Dennis Cheung

Thanks Jacob.

After following your code, the marco didn't run after unhiding rows. But it
didn't run after selecting other items in pivot table.
--
Dennis Cheung


"Jacob Skaria" wrote:

> Private Sub Worksheet_Calculate()
> Application.EnableEvents = False
> 'your code
> Application.EnableEvents = True
> End Sub
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Dennis Cheung" wrote:
>
> > The following code worked fine in office xp but not in 2003
> >
> > Private Sub Worksheet_Calculate()
> > Application.EnableEvents = True
> > Run ("SelectAfter")
> > Application.EnableEvents = True
> > End Sub
> >
> > The problem is when I tried to unhide rows in the sheet, the marco
> > "SelectAfter" runs. And I only need it runs when somethng changed in PVT. It
> > worked fine in XP version but above situiation happened after I changed to
> > 2003.
> > The marco SelectAfter means to hide 2 rows after select other items in PVT.
> >
> > Can someone help?
> > --
> > Dennis Cheung