|First, I'd like to suggest that you read the How To mentioned in my signature line before posting code in this forum.|
As far as the error in your code, I don't know much about using Pivot Tables and have never done an VBA coding related to them, but I did play around a bit in an effort to help you out.
This much I can say:
The line that is giving you the error is trying to select a Named Range, specifically the range named "Table1[[#All],[Site]]". You don't have a range with that name in your workbook.
Prove it to yourself by trying to run this line - you'll get the same error:
As far as I can tell the code to format a Pivot Table field is something like this:
.NumberFormat = "General"
Posting Tip: Before posting Data or VBA Code, read this How-To.