Dieses Programm soll eine Schaltfläche erstellen, die der Benutzer drücken kann, um ein anderes Sub zu aktivieren. Aus meinen Online-Suchanfragen geht hervor, dass das folgende Sub beim Öffnen der Arbeitsmappe aktiviert werden sollte, aber nicht?

Was mache ich falsch?

Option Explicit
Private Sub Workbook_Open()
Dim btn As Button
Dim rng As Range
With Worksheets("Sheet1")
    Set rng = .Range("B2:C2")
        Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    With btn
        .Caption = "To begin the program, please click this button"
        .AutoSize = True
        .OnAction = "TableCreation1"
    End With
End With
End Sub