interromper vb

tenho essa vb

Mais não consigo resolver o problema

teria como alguém me ajudar?
segue o código abaixo
_______________________________________________________________________________
Sub teste()
   
If Not Range("B4") = 0 Then

   Texto = "Volume Clonado. deseja continuar?"
   Título = "Confirmação"
   CxDialog = MsgBox(Texto, vbYesNo + vbQuestion, Título)
 
   If CxDialog = vbYes Then
   
   End If

End If

   Range("A4").Select

End Sub
__________________________________________________________________________________-

o código acima
eu preciso que quando for igual a zero executasse outra vb

Pelo que entendi, se for selecionado vbNo o código tem que ser encerrado, caso contrário ( vbYes ) o código continua certo?


se for isso que entendi altere a parte do seu código abaixo

Código:

If CxDialog = vbYes Then
 
End If

por

Código:

If CxDialog = vbNo Then
    Exit Sub
End If

LiveBrain

pela sua atenção obrigado
mas eu queria te explicar melhor e não sei como te enviar o arquivo

Senhores, se me permitem....

O fórum Maximoaccess, é destinado apenas ao Ms Access e o ambiente que o mesmo envolve.

Sugiro então, ver esse link, que é próprio para o Ms Excel e o ambiente envolvido ao mesmo.

http://www.planilhando.com.br/forum/viewforum.php?f=10

Grato pela compreensão de todos.

Abraços.