I have a code that pastes a range into an email body, but the text body is where I'm having trouble. When the code runs, the body is below the supplied range; perhaps someone can offer advice on how to make it higher?
Dim MyRange As Range
Dim doc As Object
Set MyRange = Sheets("Sheet1").Range("A4").CurrentRegion
.Display 'Change to .Send to send the email immediately
.Body = "This is the body:" '& vbNewLine & vbNewLine
Set doc = .GetInspector.WordEditor
.To = Range("I3").Value
.Subject = "My subject"
Application.CutCopyMode = 0