Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Tengo una función que haciendo doble clic en un elemento de la tabla dinámica tendría que devolver en el casillero D4  de la hoja 2 , el código  ubicado en hoja 1 columna A  correspondiente al elemento de la tabla dinámica , y en cambio lo que me devuelve es un numero predefinido... 

Range("D4").Value = WorksheetFunction.Match(TextBox1.Text, Sheets("empleados").Range("C7:C26"), 0)