Você vai criar um "On Error" e dentro dele você escreve:
"Debug.Print Err.Number"
Ele vai imprimir na janela de verificação imediata o numero do seu erro
Ai vc coloca no on error:
"
If Err.number = XXX then:
msgbox "Mensagem a ser exibida"
'==== ai vc coloca algun tratamento aqui
' tipo "resume" ou "REsume next" ou
'ou alguma coisa do tipo
else
msgbox err.number & Err.description
end if