cuando ejecuto esta macro 

Private Sub modificar_Click()

Dim fila As Object

Dim linea As Integer

valor_buscado = Me.tx_referencia

Set fila = Sheets("base de datos").Range("A:A").Find(valor_buscado, lookat:=xlWhole)

linea = fila.Row se interrumpe aca y tira error 91 en tiempo de ejecucion:variable de objeto o bloque with no establecido

Range("b" & linea).Value = Me.dependencia.Value