Excel: Macro con la funcion de edicion/buscar

[gabrielmsi]

hola gente, tengo un problemita seguro facil de resolver pero estoy un poco verde en esto de las macro. Necesitaba una macro exactamente igual a las mencionadas arriba:
Private Sub TextBox1_Change()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub

Asi funciona perfectamente pero cuando quiero restringir la busqueda a una columna haciendo esto [B:B] o esto Range( "B9:B9000") me dispara un error en visual "error 1004.Imposible obtener la propiedad Find de la clase Range."
Como puedo solucionarlo? gracias