VBA não reconhece a propriedade MsgBox VbMsgBoxStyle

Question

Estou recebendo a mensagem de erro "Erro de compilação: argumento nomeado não encontrado", quando tento executar meu código do VBA. O VBA parece não reconhecer a última propriedade VbMsgBoxStyle .

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

Por outro lado, meu Pesquisador de objetos mostra isso para MsgBox:

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

Alguém tem uma ideia do porquê isso está acontecendo?

    

Answer 1

A propriedade é Buttons não vbMsgBoxStyle . Seu código deve ser assim:

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