Vba Find For 2 Criteria- Then Offset Other Information

I have a code where I am trying to do a find for 2 criteria. If both criteria are found in the same row I want to then offset more data on that row. My find code is not working. Here is what I have:

Sub test()
Dim str As String
Dim str1 As String

str = Sheets("Pt2Filter").Range("Repair_Description1")
str1 = Sheets("Pt2Filter").Range("DateOfInvoice1")

Sheets("Invoiced Pt 2").Activate
Find_Range = ActiveWorksheet

‘search For items
Set found_range = Find_Range("str", Columns("D"), xlValues, xlPart)
For Each Cell In found_range
If Intersect(Cell.EntireRow, Columns("A")).Value = _
"str1" Then...
End Sub

Whenever I try to run the code the part that I have as bold returns a Type Mismatch error.