Mensagem de confirmação para executar a macro

[Lu Reis]

Olá pessoal,

 

Criei um "Botão de Comando (Controle ActiveX)" e atribui esse código abaixo ao evento click dele.

Porém, ao clicar em Sim o depurador acusa um erro.

Não consegui entender o motivo.

Agradeço quem puder me ajudar.

 

Private Sub CommandButton1_Click()
If MsgBox("Confirma execução?", vbYesNo + vbQuestion) = vbYes Then
      DoCmd.RunMacro "nomeDaMacro"
End If
End Sub

 

[Basole]

Experimente usar:

 

Application.Run "nomeDaMacro"

 

[Lu Reis]

Perfeito Basole!

 

Você tem alguma dica quanto a design (aparência) do botão?

Aqui ele tem uma aparência um pouco "pesada", de botão do Windows sabe? Queria deixar algo mais leve, parecido com os botões (Responder, Pré-visualizar, etc.) aqui do fórum.

adicionado 35 minutos depois

Consegui utilizar o IF dentro da minha macro ou invés de deixar no evento click do botão. Assim puder atribuir a macro a um botão criado utilizando uma forma (quadrado, círculo, etc) do Excel.

Obrigado novamente!