thanks, i updated the VBA with:
Sub Macro5()
'
' Macro5 Macro
'

Sheets("PivotTables - DO NOT CHANGE").Hidden = False
Sheets("PivotTables - DO NOT CHANGE").Select
ActiveWorkbook.RefreshAll
Sheets("PivotTables - DO NOT CHANGE").Hidden = True
Sheets("DashBoard").Select
Range("C1").Select
End Sub

and i had error 438 object doesnt support this property or method