Refresh All Pivot Tables

I have pivot tables on multiple sheets but when I tried pasting the code provided in this thread, i get an error and the first line of the code "Private Sub Workbook_SheetActivate(ByVal Sh As Object)" is highlighted in yellow by the debugger.

Please help?

Thanks.