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