엑셀 2007 실무활용 기술에서

p.329 에 있는 그래도 입력했습니다.

아래와 같이 입력하고 (책과 동일)

했는데도 불구하고 옵션단추로 선택한 브랜드 와 제품군으로 필터링이 안되는지 ...ㅠㅠ

Sub ACTION()
'
' ACTION Macro
' 피벗 테이블 보고서 필터링

'
'
    Dim 브랜드   As String
    Dim 제품군   As String
   
    브랜드 = Range("브랜드")
    제품군 = Range("제품군")
   
    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("브랜드").ClearAllFilters
    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("브랜드").CurrentPage = 브랜드
    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("제품군").ClearAllFilters
    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("제품군").CurrentPage = 제품군
    Rows("2:2").Select
End Sub