Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ptc As PivotTable, Value As Variant, Rng As Range
For Each ptc In ActiveSheet.PivotTables
If Not Intersect(Target, Range(ptc.TableRange1.Address)) Is Nothing Then
If Left(Target.Value, 7) = "mailto:" Then...