Pivot Table How to make text box equal to value selected in filter

How do i make the value in a text box equal to the value I select from my filter? This is being done on a pivot table by the way.

Private Sub Autofiltertextbox()

If .AutoFilterMode = True Then
textbox6 = pt.PivotFields("Full Name")
End If

End Sub

This is all i could come up with.

Should hopefully be relatively simple.