Envío celdas por correo

Hola a todos,

Tengo una excel con varias lineas que voy rellenando con los consumos de carburante de cada usuario y con su dirección de mail para enviarles un correo copiando su línea que aparece en el cuerpo del mensaje, me ha estado funcionando pero de repente me da un error,

"Se ha producido el error '1004' en tiempo de ejecución:

Fallo en el método 'EnvelopeVisible' de objeto '_Workbook'

Adjunto la macro que utilizo

Muchas gracias por la ayuda