VBA не распознает свойство MsgBox VbMsgBoxStyle

Question

Я получаю сообщение об ошибке «Ошибка компиляции: именованный аргумент не найден», когда я пытаюсь запустить свой код VBA. VBA, похоже, не распознает последнее свойство VbMsgBoxStyle .

Dim dump As VbMsgBoxResult
dump = VBA.Interaction.MsgBox _
       Title:="Invalid Scope!", _
       Prompt:="You entered Invalid Scope !!!", _
       VbMsgBoxStyle:=vbCritical

С другой стороны, мой Object Browser показывает это для MsgBox:

Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult
    Member of VBA.Interaction

У кого-нибудь есть идея, почему это происходит?

Answer 1

Свойство Buttons не vbMsgBoxStyle . Ваш код должен выглядеть так:

VBA.Interaction.MsgBox _
            Title:="Invalid Scope!", _
            Prompt:="You entered Invalid Scope !!!", _
            Buttons:=vbCritical