My code doesn’t compile (VBA – Excel), each time I click on ‘Update All’ which updates the pivots, It comes back with the following error –

‘Run-time error '1004':
Unable to set the _Default property of the PivotItem class’

When I click on debug, the following line on the code is highlighted yellow – 

ActiveSheet.PivotTables("OpTimePerPatient").PivotFields("Speciality").CurrentPage = ActiveSheet.PivotTables("ControlTab").PivotFields("Speciality").CurrentPage.Value
Please can someone help….. please

this is the full code