ya he averiguado un poquillo mas y para los que lo necesiten aqui va:
on local error resume next
If Err.number Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.number & ", " & Err.Description & "." & vbCrLf & "mensaje"End If
gracias urjose y mil perdones de nuevo.
salu2
byte
