Botton Movible en excel

[Crashman]

Tengo una macro que hace busquedas donde se ingresa el dato en un textbox y muestra el dato en un Label pero necesito que el boton de busqueda se mantenga en movimiento hacia donde se encuentre el usuario (celdas) como hago esta propiedad o como hago que reaccione por medio de un comando hagase de cuentas como el de busqueda normal de excel Ctrl+B ....

Private Sub CommandButton1_Click()
'Pasamos el código a buscar, a una variable
codigo_a_buscar = TextBox1.Value
'Lo buscamos...
Cells.Find(What:=codigo_a_buscar, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'Seleccionamos el valor de la columna de la derecha (descripción),
'y pasamos ese valor a una variable
descripcion_del_codigo = ActiveCell.Offset(0, 1).Value
'Lo ponemos en la etiqueta oculta
Label2.Caption = descripcion_del_codigo
End Sub

Por cierto esta macro la dieron de ejemplo en un post anterior gracias eh...