Never mind....needed to read the entire thread to get my answer
I am using this code to send specific cells from my excel file to the text in an email.
Instead of Range("a1"), I am trying to paste in Range("h8:j12"), but I am getting an "Array lower bound must be zero" error. Does anybody know how I can append this code to paste in this range of cells instead of just one specific cell?
Thx in advance
Sub Test()
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "Anyone@anywhere.com"
olMail.Body = Range("a1") 'Change to suit your needs
'To display the message use this
olMail.Display
'or to send the message use this
'olMail.Send
'Reactive Excel
AppActivate "Microsoft Excel"
End Sub