Se supone que este programa crea un botón que el usuario puede presionar para activar un sub diferente. A partir de mis búsquedas en línea, parece que el sub siguiente debe activarse al abrir el libro de trabajo, pero no es así.

¿Qué estoy haciendo mal?

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