placere en kommandoknap i højre hjørne af celle

Hvorfør kan jeg ikke skrive højre mener jeg selvfølgelig!

Jeg vil gerne have at kommandoknappens højre øverste hjørne justeres til cellens øverste højre hjørne

lidt en klamphugger-løsning sikkert, men løste den selv således:

Sub MoveShapes()

Arow = ThisWorkbook.Worksheets("UgePlan").Range("A65000").End(xlUp).Row

Worksheets("UgePlan").Activate


ActiveSheet.Shapes(1).Select
With Selection
  .Top = Cells(Arow + 2, 1).Top
  .Left = Cells(Arow + 2, 1).Left
End With

ColWidth = Range(Cells(1, 1), Cells(1, 16)).Width
ShapeWidth = ActiveSheet.Shapes(1).Width
RightCorner = ColWidth - ShapeWidth

ActiveSheet.Shapes(1).Select
Selection.ShapeRange.IncrementLeft RightCorner

ActiveSheet.Shapes(2).Select

With Selection
  .Top = Cells(Arow + 2, 18).Top
  .Left = Cells(Arow + 2, 18).Left
End With
Range("B1").Select

End Sub