hola mira te envio algo simple, pero espero te sirva si queres algo mas complejo me decis..
Código:
'esto es el inicio del Sub
on local error resume next
'aqui todo tu codigo
' y esto al final del sub.. es una manera simple de hacerlo si deseas algo mas complejo decime
if error <> 0 then
msgbox "ha ocurrido el siguiente error" & err,vbinformation,"error"
end if