Argumento o llamada a procedimiento no valida

-------------

Buena tarde

Necesito de su ayuda

Tengo esta macro para filtrar

Option Explicit

Private Sub TextBox1_Change()

Dim Valor As String
Dim strFormula As String
Dim Rango1 As Range
Dim Rango2 As Range

Valor = Hoja1.TextBox1.Value
strFormula = "=ENCONTRAR(MAYUSC(""" & UCase(Valor) & """),MAYUSC($D10))"

Set Rango1 = ThisWorkbook.Sheets("Hoja1").Range("A9").CurrentRegion
Set Rango2 = Rango1.Offset(1, 0).Resize(Rango1.Rows.Count - 1, Rango1.Columns.Count)

If Hoja1.TextBox1.Value = "" Then Cells.FormatConditions.Delete: Exit Sub

Cells.FormatConditions.Delete
Rango2.FormatConditions.Add Type:=xlExpression, Formula1:=strFormula

With Rango2.FormatConditions(1).Interior
.ColorIndex = 35
End With

End Sub

-----------

Tengo dos computadoras

En una me funciona pero en otra no

Me sale este mensaje

Se ha producido el error '5' en tiempo de ejecucón

Argumento o llamada a procedimiento no valida

En esta línea del código

Rango2.FormatConditions.Add Type:=xlExpression, Formula1:=strFormula