dajú

V linku od Sikiho je kód (zjednodušene):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set acth = ActiveWorkbook.Worksheets("List1")
acth.Shapes("lpt").Left = ActiveCell.Left
acth.Shapes("lpt").Top = ActiveCell.Top - 25
End Sub

ktorý sa vkladá do modulu príslušného hárka
a tlačidlo je prvok ActiveX s názvom lpt

takže ak si vytvoríš ďalšie tlačidlá, doplníš si kód o pozície left a top pre každé z nich...