Hola!
Intenta asi:
Código vb:
Ver originalReplace (EquipoCasaCalendario,"'","") = frmCalcularLigas.Spreadsheet1.Sheets("Calcular").C ells(n + 1, 3).Value
Replace (EquipoFueraCalendario, "'","") = frmCalcularLigas.Spreadsheet1.Sheets("Calcular").C ells(n + 1, 5).Value
.Recordset.FindFirst "EquipoCasa='" & EquipoCasaCalendario & "' and EquipoFuera='" & EquipoFueraCalendario & "'"
If .Recordset("EquipoCasa") = EquipoCasaCalendario And .Recordset("EquipoFuera") = EquipoFueraCalendario Then
.Recordset.Delete
End If