Sub 삭제된항목제거2()

    Dim 피벗캐시 As PivotCache

    On Error Resume Next
    
    For Each 피벗캐시 In ThisWorkbook.PivotCaches
    
        피벗캐시.MissingItemsLimit = xlMissingItemsNone
        피벗캐시.Refresh
    
    Next
    
End Sub