Pessoal, boa noite!
Esse erro está acontecendo na programação abaixo:
Sub Enviar_Email()
Dim MyOlapp As Object, MeuItem As Object
Dim sbObj As Scripting.FileSystemObject
Dim vlor_text As Scripting.TextStream
Dim rngValor As Range
Dim stHTMLBody As String
Dim LocalArquivo As String
Dim intervalo As String
On Error Resume Next
O objetivo é enviar um e-mail com a seleção de células especificas....
Alguém consegue me ajudar? obrigado