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