Hola gente me podrian ayudar con esta macro de busqueda inteligente

[Caballero Rojo]

Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error  '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto".

Private Sub TEXTO_Change()
'MsgBox "Hola"
NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row
'MsgBox NumeroDatos
Sheets("PLANILLA").AutoFilterMode = False
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
Y = 0

For File = 12 To NumeroDato

    If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
    Me.LISTA.AddItem
    Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value
    Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(Fila, 2).Value
    Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(Fila, 3).Value
    
    Y = Y + 1
    
    End If

Next
End Sub
 

Alguien me podra ayudar. Gracias!!

[Caballero Rojo]

error: Description = Sheets("PLANILLA").Cells(Fila, 18).Value

[Antoni]

For Fila = 12 To NumeroDato

[Caballero Rojo]

Hola Antoni , gracias por mirar!!

El error estaba en colocar "fila" donde deberia ir "File", con ese cambio solucione!

Muchas gracias!!