Por ejemplo si tienes un error especifico por ejemplo el 13, (Type mismatch) PUEDES HACER LO SIGUIENTE
On Error Goto Solucion
Solucion : If Err.number=13 Then
Respuesta = MsgBox ("Complete.." + VbYesno)
End If
If Vbyes then
Resume
End if
No se silo escribi todo bien.. pero date una idea