Boa note, amigo como você estar usando um metodo do msgbox que possui Retry e cancel você precisa variar o msgbox!
segue o exemplo
Sub teste()
Dim X As String
X = MsgBox("markos", vbRetryCancel)
If X = vbRetry Then
MsgBox "REPETIR"
Else
MsgBox "CANCELAR"
End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 21/07/2012 3:06 pm