Se ha producido un Error "13" en tiempo de ejecución: No coinciden los tipos

Cuando intento ejecutar esta macro me salta el error de no coinciden los tipos y no entiendo el porqué

.

Esta es la macro que estoy usando

Private Sub txt_busqueda_Change()
Indice = Hoja4.Range("A" & Rows.Count).End(xlUp).Row
' se limpia mi Lixt Box
Me.ListBoxLista = Clear
Me.ListBoxLista.RowSource = Clear
y = 0
For Fila = 2 To Indice
' Asigno la columna donde quiero buscar
codigo = Hoja4.Cells(Fila, 12).Value
'Busco por codigo
If UCase(codigo) Like "*" & UCase(Me.txt_busqueda.Value) & "*" Then
'Relleno cuadro de lista
Me.ListBoxLista.AddItem
Me.ListBoxLista(y, 0) = Hoja4.Cells(Fila, 1).Value
Me.ListBoxLista(y, 1) = Hoja4.Cells(Fila, 2).Value
Me.ListBoxLista(y, 2) = Hoja4.Cells(Fila, 3).Value
Me.ListBoxLista(y, 3) = Hoja4.Cells(Fila, 4).Value
Me.ListBoxLista(y, 4) = Hoja4.Cells(Fila, 5).Value
Me.ListBoxLista(y, 5) = Hoja4.Cells(Fila, 6).Value
Me.ListBoxLista(y, 6) = Hoja4.Cells(Fila, 7).Value
Me.ListBoxLista(y, 7) = Hoja4.Cells(Fila, 8).Value
Me.ListBoxLista(y, 8) = Hoja4.Cells(Fila, 9).Value
Me.ListBoxLista(y, 9) = Hoja4.Cells(Fila, 10).Value
Me.ListBoxLista(y, 10) = Hoja4.Cells(Fila, 11).Value
Me.ListBoxLista(y, 11) = Hoja4.Cells(Fila, 12).Value
Me.ListBoxLista(y, 12) = Hoja4.Cells(Fila, 13).Value
Me.ListBoxLista(y, 13) = Hoja4.Cells(Fila, 14).Value
Me.ListBoxLista(y, 14) = Hoja4.Cells(Fila, 15).Value
Me.ListBoxLista(y, 15) = Hoja4.Cells(Fila, 16).Value
Me.ListBoxLista(y, 16) = Hoja4.Cells(Fila, 17).Value
Me.ListBoxLista(y, 17) = Hoja4.Cells(Fila, 18).Value
Me.ListBoxLista(y, 18) = Hoja4.Cells(Fila, 19).Value
Me.ListBoxLista(y, 19) = Hoja4.Cells(Fila, 20).Value
Me.ListBoxLista(y, 20) = Hoja4.Cells(Fila, 21).Value
y = y + 1
End If
Next
End Sub