为什么不能在ThisWorkbook内定义函数何宏？

我在ThisWorkbook内定义了一个函数
Function AutoRemind(Optional RA As Range = Nothing, Optional OP As Integer = 0)
    Dim Response%
    Response = MsgBox("Are you sure to commit?", vbOKCancel, "COMMIT")    If Response = vbOK Then
       IsSaved = True
       row = 1
    Else
    
    End If
    AutoRemind = ResponseEnd Function
然后再去调用它
Private Sub Workbook_Open()'当工作簿打开时执行IsSaved = False
'在工具菜单中添加按钮With Application.CommandBars("Tools").Controls.Add(msoControlButton, 1).Caption = "提交" '按钮文本.Tag = "Example" '按钮标签.OnAction = "AutoRemind" '按钮命令宏End WithEnd Sub
为什么会弹出错误：
未找到宏？