以前にこのコードを使用して Excel でレポート フィルターを設定したことがありますが、何らかの理由で "CurrentPage" を強調表示する "Expected: End of Statement" が引き続き表示されるようになりました。
Sheets("Template").PivotTables("PivotTable1").PivotFields ("Company_Name") _
CurrentPage = Sheets("Template").Range("E1").Text