faster way to loop

I have a pivot table and I need the fastest way to pull values below.


In Workbooks("ABC").Sheets("AAA").Range("A24")
need to get column D where:
column A = "Dog"
column B = 42248
column C = "San Jose"



there are about 85,000 rows that varies some each day


Here is my current code

Please Login or Register  to view this content.

I am trying the Find Function and it works with 2 variables, but how do I get 3 variables? Can you see what is wrong? Thanks for the help

Here is what works with 2:

Please Login or Register  to view this content.

Here is what I tries with 3

Please Login or Register  to view this content.

I got it thanks. I didnt have the cVal As String. Thanks for the help