A função Msg Box é de extrema importância na automação de planilhas.Veja o exemplo:
Sub teste()
msg = MsgBox(“Pretende Continuar?”, vbInformation + vbYesNoCancel)
End Sub
O resultado:
![]()
Em vez de utilizarmos tantos textos,porque nao utilizar os valores destes botões?.Veja a tabela a seguir e um exemplo de sua aplicação:

Sub teste()
msg = MsgBox(“Pretende Continuar?”, 64 + 3)
End Sub
Crie códigos mais rápidos e enxutos com este macete!
Fonte: Exceler
Até mais! =)
Sidney Moraes