I am trying to change a value in a cell in column C if the values in column A & B match certain criteria.

I have come up with the following code:

Sub Edit_Property_Value()

 Dim vCriteria
 Dim vCriteria2
 
    vCriteria = Sheets("Search").Range("F5").Value2
    vCriteria2 = Sheets("Search").Range("F11").Value2
 
    With Sheets("ExP")
    vData = .Range("A2:C" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
    End With
    For i = 1 To UBound(vData, 1)
        If vData(i, 1) = vCriteria And vData(i, 2) = vCriteria2 Then
        vData(i, 3).Value = "Test"
        End If
     Next i
         
End Sub

But it is producing an error- the debugger highlights this line:

 vData(i, 3).Value = "Test"
Where am I going wrong here?

Thanks in advance for any help offered