Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim selPF As PivotField, strField As String, strAdd As String, myVal As String
strField = "P.O. NO."
On Error Resume Next
Set selPF = Target.PivotField
If Not selPF Is Nothing Then
If selPF.Name = strField Then
myVal = Target.Value
If Len(myVal) > 0 Then ThisWorkbook.FollowHyperlink Address:="C:\Users\blah\Documents\" & myVal & ".pdf", NewWindow:=True
End If
End If
End Sub