Disable Multi-Select in Excel Pivot Table using VBA

Hello

Is there a way, in Excel 2016, to disable the multi-select and select all options in a pivot table filter?  I found the below post from a couple of years ago and I tried using the VBA syntax from this.

https://www.experts-exchange.com/questions/28528630/Disable-Multi-Select-and-Select-All-Options-in-Excel-2007-Pivot-Table.html

Private Sub Worksheet_Change(ByVal Target As Range)
    If PivotTables("GTMSIC").PivotFields("LOB").CurrentPage = "(All)" Then
        Application.Undo
        MsgBox "Select All-LOB instead", vbCritical + vbOKOnly, "Filter Selection" 'optional message
        PivotTables("GTMSic").PivotFields("LOB").EnableMultiplePageItems = False
    End If
End Sub

However, in my worksheet, the message box is put in an infinite loop. Every time I click ok or try to exit out, it pops up again.

Can anyone help me correct this.