Книга _Открытая подпрограмма не запускается, когда я открываю книгу?

Эта программа должна создать кнопку, которую пользователь может нажать, чтобы активировать другую подпрограмму. Из моих поисков в Интернете кажется, что нижеследующая подпрограмма должна активироваться при открытии книги, но это не так?

Что я делаю не так?

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