[Tasos]

καλησπέρα σε όλους!

Φίλε Θόδωρε δοκίμασε:

Option Explicit

Sub MakeButton()
    With ActiveSheet.Buttons.Add(500, 20, 140, 40)
        .Name = "Mybutton"
        .Caption = "Open Userform"
        .OnAction = "ShowUserForm"
        '...άλλες ιδιότητες...
    End With
End Sub

Sub ShowUserForm()
    MsgBox "Πάτησες το κουμπί: " & Application.Caller ' δοκιμή λειτουργίας
    'Userform1.Show  ' ανοίγει τη φόρμα
End Sub

Φιλικά

Τάσος