请指教vba程序

rtmx01

下面vba程序运行时提示"用户定义类型没定义",请教高人应怎么修改,  是否要在工具栏的引用中添加什么

Sub aa()

Dim cbrCmdBar   As CommandBar

    Dim strCBarName  As String

   

    '创建工具栏

    strCBarName = "MyNewToolbar"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName)

   


End Sub

fan0217

Office