Hi Daniel,
Thank you very much. :)
Regards,
Chandra Shekar B
On Wed, Apr 27, 2011 at 8:37 PM, Daniel wrote:
> Hi,
>
> Paste the following macro in Sheet1 module :
>
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> 'A1:F10 is data for pivot table 1 G1:I10 is data for pivot table
Hi,
Paste the following macro in Sheet1 module :
Private Sub Worksheet_Change(ByVal Target As Range)
'A1:F10 is data for pivot table 1 G1:I10 is data for pivot table 2...
If Not Intersect(Target, Union([A1:F10], [G1:I10])) Is Nothing Then
ThisWorkbook.RefreshAll
End If
End Sub
Reg