Worksheet Change Event code help

Guys, thank you so much for all your help!! It works now. I was missing the following line which suddenly got it to work right:
Application.EnableEvents=False

Regards,
Kev

Sorry guys, looks like it was too early for me to celebrate yet..
I need to modify this code such that it doesn't exit sub after this line -If Range("B4").Value = "(All)"
but instead remove the country filter in Report Filters from the pivot table named "pg1_02". Help??