Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.PivotTables("PivotTable1").TableRange2) Is
Nothing Then

MsgBox Target.Address & " is part of PivotTable1"
End If
End Sub


--
__________________________________
HTH

Bob

"ch" wrote in message
...
Hi All,

In VBA script when it is running, is there a way to select any cell on the
pivot table and then obtain the name of the pivot table so that I can
manipulate it ?

Thanks.