No pude hacer funcionar una macro excel

Tengo una macro que no pude hacer funcionar bueno yo no se de esto mucho pero lo estoy intentando de a poco gracias.-Son cinco hojas en total
Sub VariasHojas()
Dim buscar
Dim texto As String, titulo As String
texto = "Digite Patente,Nombre o Depto a buscar"
titulo = "Busqueda en todas las hojas del libro"
buscar = InputBox(texto, titulo)
If buscar = "" Then Exit Sub
Dim fila As Integer
fila = 2
Worksheets("Hoja4").Select
Range("b3:H50").Select
Selection.ClearContents
ActiveCell.Value = " Resultados para la búsqueda de " & buscar
For Each hoja In Sheets
With hoja.Range("A1:L2000")
Set esta = .Find(buscar, LookIn:=xlValues)
If Not esta Is Nothing Then
primeracelda = esta.Address
'opcional: mostrar el nbre de la hoja según consulta original.
Rem MsgBox hoja.Name
Do
ActiveCell.Offset(fila, -0).Value = esta.Offset(0, -1).Value
ActiveCell.Offset(fila, 1).Value = esta.Offset(0, 1).Value
ActiveCell.Offset(fila, 2).Value = esta.Offset(0, 2).Value
ActiveCell.Offset(fila, 3).Value = esta.Offset(0, 3).Value
ActiveCell.Offset(fila, 4).Value = esta.Offset(0, 4).Value
ActiveCell.Offset(fila, 5).Value = esta.Offset(0, 5).Value
ActiveCell.Offset(fila, 6).Value = esta.Offset(0, 6).Value
ActiveCell.Offset(fila, 7).Value = esta.Offset(0, 7).Value
fila = fila + 1
Set esta = .FindNext(esta)
Loop While Not esta Is Nothing And esta.Address <> primeracelda
End If
End With
Next hoja
End Sub
Esta la copie y trate de modificar para colocar en formulario que tenga
textbox1 (ingrese datos
botón (buscar )
lisbox1 (muestre los datos)
o algo parecido... Gracias
[email protected]