RUN TIME ERROR : 13 (TYPE MISMATCH) excel debugger

[vasu456]

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
ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True
End If
End If
Next ptc

End Sub

 

[vasu456]

I have a pivottable with employee name and email id.. if i filter a particular employee than email ID will reflect with other sales data.

what i want to do is when i click on the email ID available in the pivot table. outlook will bring a new mail window and automatically
should insert the following fields:

To: <already made in in the following code but its not error free>
Subject:<unable to do at my end)

the code goes here...






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
ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True
End If
End If
Next ptc

End Sub