ExcelVBAでピボットテーブル内の特定の値を非表示にする

VBAでピボットテーブル内の特定の値を１つ非表示にするSubプロシージャ

'ピボットの任意のアイテムを非表示にする
'条件は一つだけ
'引数１：シート名
'引数２：ピボットテーブル名
'引数３：フィールド名
'引数４：この値だけを非表示にする
'　"(blank)" で空白非表示
Private Sub S_ControlNonVisiblePivot(ByVal arg_filterSheetName As String, arg_filterPivotName As String, ByVal arg_filterFieldsName As String, ByVal arg_nonVisibleItemName As String)
    
    Dim filterSheet As Worksheet
    Set filterSheet = ActiveWorkbook.Worksheets(arg_filterSheetName)
    
    With filterSheet.PivotTables(arg_filterPivotName).PivotFields(arg_filterFieldsName)
        .PivotItems(arg_nonVisibleItemName).Visible = False
    End With
    
End Sub