worksheet_change 런타임 오류

Question

아래 코드는 "SelectionChange"가 활성화 될 때마다 (클릭 할 때마다) 각 워크 시트에서 모든 "PivotTable3"을 업데이트하는 시트의 피벗 테이블 데이터 범위에서 작동합니다. 편집하지 않고 다시 시도하면 일반적으로 작동합니다.

질문 : "Worksheet_Change"를 사용하는 방법은 무엇입니까? 난 항상 런타임 오류와 같은 시트를 참조하고

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
For Each ws In ActiveWorkbook.Worksheets 
Call PivRefresh 
Next 
End Sub 


Sub PivRefresh() 
ActiveSheet.PivotTables("PivotTable3").PivotCache.refresh 
End Sub 

Answer 1

구문마다 알아낼 수 없습니다 - 당신은 같은 것을 필요로 다음 PivRefresh() 서브에 대한

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    For Each ws In ActiveWorkbook.Worksheets 
     ws.PivotTables("PivotTable3").PivotCache.Refresh 
    Next 
End Sub 

필요 없음을