Urgente! ¿Como mover un boton con la ubicacion de la celda?

La forma en la que añado un boton en la celda E3 es la siguiente:

Ubicacion = "E3"

Izquierda = .Range(Ubicacion).Left
Arriba = .Range(Ubicacion).Top
Ancho = .Range(Ubicacion).Width
Alto = .Range(Ubicacion).Height


ActiveWorkbook.Unprotect C_PWD
DesprotegerHoja (.name)

Set bt = .Buttons.Add(Izquierda, Arriba, Ancho, Alto)
bt.Font.Color = &HD5D5D5
bt.OnAction = macro
'bt.Placement = xlMove
'bt.Placement = xlFreeFloating
bt.Placement = xlMoveAndSize
bt.PrintObject = True

Pero cuando edito para hacer un cambio en cualquier otra celda del
documento, se hace un autofit de las columnas que no tienen boton y a las
de boton siempre les adjudico ancho de columna 10 y ancho de fila 20.

Mi probema es que aunque le pongo la propiedad bt.Placement xlMoveAndSize el boton, queda fuera de la celda.

No se si influye que la hoja tenga inmovilizados los paneles y el scroll.

Alguien sabe decirme una solucion????

Muchas Gracias.