This perfectly worked where I had a worksheet with the data along with a column with the heading as "Email" as well as another column called "Subject" and I had a concatenate formula in the "Subject" like +CONCATENATE("Re: Your order ",A2, " Placed on ",B2). Then I used the MS Word menu item "MAILINGS" - > "Select Recipients" -> "Use an existing List" then select the Excel document containing the above information and using "Insert Merge Field" from (Write and Insert menu bar) to further customise the message body. I then opened the DEVELOPER tab and went to Macros and clicked on Create and under the Normal project, under Modules, under NewMacros, I selected and removed everything and pasted the below code
Sub Merge_To_Emails()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = 1 To .MailMerge.DataSource.RecordCount
With .MailMerge
.Destination = wdSendToEmail
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
.ActiveRecord = i
End With
.MailAddressFieldName = "Email"
.MailSubject = .DataSource.DataFields("Subject")
.MailFormat = wdMailFormatHTML
.Execute Pause:=False
End With
Next i
End With
Application.ScreenUpdating = True
End Sub
then to run the macro, I had to go to DEVELOPER and select Macros and select the Merge_To_Emails from the drop down list and off you go.