junto con agradecerles y saludarles, tengo el siguiente Código:

Sub OrdenaEscribe()
 
    ActiveCell.Select
    Do While ActiveCell.Value <> Empty
            Call AppActivate("Smart - ISP")
            Sleep 430
            Range("B" & ActiveCell.Row).Select
            SendKeys Range("B" & ActiveCell.Row).Value, True
            Sleep 650
            SendKeys "{ENTER}", True
            Sleep 750
            SendKeys Range("D" & ActiveCell.Row).Value, True
            Sleep 600
            SendKeys "{ENTER}", True
            ActiveCell.Offset(0, -1).Interior.Color = vbGreen
            'Actualizar la barra de progreso
            ActiveCell.Offset(1, 0).Select
    Loop

   
    MsgBox "Carga de datos finalizada", vbExclamation
   
End Sub


....
El problema que tengo es que la aplicación externa a veces da errores y el Código no los detecta, por lo que sigue ejecutándose sin ninguna pena.

Si alguien le ha pasado y lo soluciono agradezco su ayuda.