[Macro enviar seleção do Excel por e-mail]

Estou querendo uma macro que envia por e-mail o conteudo das celulas A1:R100.

Obrigado

[Trabalhando Valores de erro em célula]

Eu tenho uma celula que tem uma função que dependendo do resultado da o erro #NÚM!. Mas o meu problema é quando esse erro acontece a minha macro para no if --> If Range("F" & Contf).Value >= "1 dias 0h00m" Then.

A celula "F" & Contf é aonde o erro aparece, porem normalmente nesse campo tem uma data, no mesmo estilo da data acima (1 dias 0h00m).

Para tentar me livrar do erro tentei colocar 2 condições:

If Range("F" & Contf).Value = "#NÚM!" then

If Range("F" & Contf).Value = CVError(xlErrNum) then

Mas nenhuma delas deu certo e o erro passou a ser nessa nova condição......

Então alguém tem uma ideia de como eu posso acabar com esse erro .

Obrigado..