[ΘΟΔΩΡΟΣ]

Καλησπέρα,
¨Εχω το παρακάτω τμήμα ενός κώδικα που δημιουργεί ένα button αυτόματα, το μετονομάζει και αλλάζει και τα χαρακτηριστικά. Θέλω αφού εκτελεστεί αυτό ο κώδικας, πατώντας στο button να μου ανοίγει ένα userform που έχω φτιάξει. Πως μπορώ?


ActiveSheet.Buttons.Add(500.5, 20, 151, 36).Select
Selection.Name = "New Button"
Selection.OnAction = "create table"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "create table"

With Selection.Characters(Start:=1, Length:=22).Font
.Name = "Arial"
.FontStyle = "¸íôïíá"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With

Range("A1").Select