Bom-dia.

Tente assim.

MsgBox ("Ação cancelada!"), vbExclamation, "Atenção!"

Att,

Francisco

Continua dando o mesmo erro, esse erro esta dando para todas as msgbox q tem na planilha, porém nas outras externas, funciona perfeitamente. Talvez eu tenha que refazer os códigos em outra planilha....

Posta o seu arquivo.

Posta o seu arquivo.

Segue

Boa tarde!!

Mude o nome da sua macro de Sub msgbox para Sub msgbox1

Sub msgbox1()

    Dim resultado As VbMsgBoxResult
        resultado = msgbox("Deseja transferir os valores?", vbYesNo, "Modo edição")
    If resultado = vbYes Then
        msgbox "Deseja transferir os dados?", vbExclamation, "Lançamento SAP"
    
        TransferirValores
    Else
          msgbox "Ação Cancelada!"
        End
End If
End Sub

Boa tarde!!

Mude o nome da sua macro de Sub msgbox para Sub msgbox1

Sub msgbox1()

    Dim resultado As VbMsgBoxResult
        resultado = msgbox("Deseja transferir os valores?", vbYesNo, "Modo edição")
    If resultado = vbYes Then
        msgbox "Deseja transferir os dados?", vbExclamation, "Lançamento SAP"
    
        TransferirValores
    Else
          msgbox "Ação Cancelada!"
        End
End If
End Sub

Muito obrigado, funcionou!