Here is some code that is failing....
Sub ShowDivisionTotals()
Application.ScreenUpdating = False
'Unlock Sheet
Call UnlockSheet
Sheets("Division Totals").Select
With ActiveSheet.PivotTables("Division Totals").PivotFields("Division Seperators")
.PivotItems("2").Visible = False
End With
With ActiveSheet.PivotTables("Division Totals").PivotFields("Secondary Seperators")
.PivotItems("1").Visible = True
End With
'Lock Sheet
Call LockSheet
Application.ScreenUpdating = True
End Sub
The subs being called are working for sure because I use them with key functions too and they work when I press Ctrl+U and Ctrl+L for example.
Bookmarks