THC171

estou com erro na linha de comando With ActiveSheet.MailEnvelope o que devo fazer

estou com uma macro no VBA para enviar um email automático, ele seleciona um intervalo em uma planilha e coloca no corpo do email, mas as horas negativas não aparecem fica com a configuração "################" o que devo fazer para as horas negativas aparecerem? segue planilha em anexo segue cod Sub Macro4() UsuarioRede vUsuario Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim vAgora As Date Set rng = Nothing Sheets("Banco de Horas").Select Range("A2").Select Selection.End(xlDown).Select vLinNFE = ActiveCell.Row Set rng = Sheets("Banco de Horas").Range("A1:H42").SpecialCells(xlCellTypeVisible) Set OutApp = CreateObject("OutLook.application") Set OutMail = OutApp.CreateItem(0) Dim vCorpo As String sHTML = sHTML & "<p style=""font-size:11pt"">Segue abaixo informações referente Banco de Horas . </p>" With OutMail '.to = "" .To = "" .CC = "" .Subject = "Banco de Horas CS CD SPI" .HTMLBody = sHTML & RangetoHTML(rng) .Send End With End Sub Banco de Horas teste.xlsx