1. Disable menu
'Disable show/hide Field list menu sht.PivotTables(1).EnableFieldList = False ''script to disable refresh menu 'sht.PivotTables(1).PivotCache.EnableRefresh = False