Excel - Falla en Macro, ayuda

Buenas Noches desde Mexico :

Tengo el siguiente codigo puede ser familiar para JuanC lo modifique muy poco, les cuento.....

Public Sub AltaMedico() 'OK absoluto
Dim t, x
t = Trim(UCase(Range("var_medico").Value))
x = "FALSO"
If t = " " Then
Exit Sub
End If
Call Buscarstr(t, Solo_Medico, 1, x)
If x = "FALSO" Then
ThisWorkbook.Sheets("Tablas").Range("Medico").Offset(1, 0).Resize(1).Insert Shift:=xlDown
ThisWorkbook.Sheets("Tablas").Range("Medico").Offset(1, 0).Resize(1).Value = "00"
ThisWorkbook.Sheets("Tablas").Range("Medico").Offset(0, 0).Resize(1).Formula = ""
ThisWorkbook.Sheets("Tablas").Range("Medico").Offset(0, 1).Resize(1, 1).Formula = Trim(t)
ThisWorkbook.Sheets("Tablas").Range("Medico").Sort Key1:=ThisWorkbook.Sheets("Tablas").Range("A4"),
Order1:=xlAscending, Key2:=ThisWorkbook.Sheets("Tablas").Range("B4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Public Sub Buscarstr(ByVal Valor_buscado1 As String, ByVal Rango_de_busqueda As Excel.Range, ByVal Indicador_columnas1 As Integer, ByVal estaenmatriz As String)

Dim cell As Excel.Range

Dim bEncontrado As Boolean

bEncontrado = False
On Error Resume Next

For Each cell In Rango_de_busqueda
If cell.Value = Valor_buscado1 Then
estaenmatriz = "VERDADERO"
bEncontrado = True
Exit For
End If
Next

If Not bEncontrado Then
estaenmatriz = "FALSO"
End If

End Sub


Esto da de alta un nombre de medico en una tabla llamada "solo_medico" en la hoja TABLAS con la variable " t " que refiere a una celda cualquiera, al correr la macro desde un boton de comando me sale un error que dice "Se requiere un Objeto" no se porque sale el error.....................

alguna idea ????????

Saludos y gracias desde ya................

JAG

Pero, en que linea sale el error??? en que momento o desde donde corres la macro???

Abraham

Gracias por contestar...
Como menciono en la consulta , la macro corre desde un boton de comando que defini en la hoja de excel.

El error no marca ninguna linea solo sale una ventana de error con el mensaje indicado.....

saludos....